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MAXCOM 300/1200 baud Terminal/BBS 

This full feature modem software lets you effectivly link the modem to tha disk, so you can upload or 
download files larger than lOOK.This lets you sand NMI sav.s and large text files as we.l " Bask or Cod, 
flies, which other modem programs couldn't sand because of memory limitations. Also fllas can be sant with 
or without a Information haadar (Spac-term compatible) . 

It also has a 64 column display and Is tha only 2068 modam program that will run at full 1200 baud 
without missing characters. Othar faaturas of tha terminal mode ara IBM graphic characters, auto-dlalar. 
macro keys. 110K disk buffer for captured text, auto repeat keys. 

The BBS Is tha most elaborate available for the 2068 and allows the remote user fu access to the disk 
drives similar to a CPM BBS. Features of the BBS are - 300/1200 baud, operation with fast reponce even at 
1200 baud. Passwords, priority levels. Usa time limits. Multiple Message Bases. Uploads and Download* ^are 
not limited by Memory. Dual Window Monitor screen. Interupt driven time out and Hangup protect on. Also 
Keeps a User log of callers Names and Activity on disk so a printer Isnt needed and Its easily customised and 

*MAXCOM can ba used with the 2050 modem or with the Z-SIO RS232 Interface and a 300/1200 baud 
modam. (a version for the Aerco RS232 Is In the works). 
PRICE: $24.95 



^HTs^o'gl^eL^ou examine or change any byte on a LKdos disk. It Is useful In repairing 
glltched disks, changing tha disk Name or head spaed etc. You can also examine the track map and disk Info 

^^documentation for the disk editor also Includes Information on how to access LKdos from Machine 
Code and Information on tha structure of the disk catalog and data blocks. 

PRICE: $15.00 



SEQUENTIAL/RANDOM Access FILES 

This utility Is a ram resident extension to the LKdos operating system and lets you create, read from, or 
write to very large data files kept on disk. It uses the commands OPEN*, CLOSE*. PRINT* INPUT, and 
INKEYSH to access the files from BASIC. There is also a high spaed search command for finding a text string 
within the data file. Using the TAB command, you can randomly access directly any record In a file 

Tha utility Is easily used within your basic programs and has a lot of uses, from storing large data files, 
creating large spell checker dlctlonarys or even converting you basic programs to an ascll text Hie . 

Inls uHlity lets you take the limits off of the data capacity of the 2068 .Files on disk can ba huge I 

A simple data base program Is Included on the disk to demonstrate the utility. 
PRICE: $ 15.00 



Coming Soon from Larken Electronics 

*. The Larken Oesk Top Publisher « Produce high quality printing (Ilk. this page ) with an epson compatible 
printer and LKdos. The entire Hl-res graphic page Is kept on the disk and scrolling though he page Is as «sy 
as clicking the Joystick or mouse on the Icon type menu. Text and Graphic editing with multiple sized fonts 
will also be featured. 

*♦ Spell Checker for Tasword and M-Scrlpt ** This utility program will let you have your wordprocessor 
text files b* checked by a 350K dictionary. 



All Prlcas $US - Specify type of drive when ordering. 
LARKEN ELECTRONICS RRjj2 NAVAN. ONTARIO CANADA. K4B-1H9 
(6131 = 835-2680 
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QUANTUM LEVELS MAG AZ INS 

It was announced at the recent CATS FEST 
that Quantum Levels magazine would publish two 
more issues and cease publication. I have been 
a subscriber to QL's since its first issue and 
I regret that it is ending. Quantum Levels 
began publishing before Sinclair sold the QL to 
Amstrad, who then stopped production. This 
came at a time when QL Computing was just 
getting started good in North America. As QL 
production ended so did the prospects for 
success of a publication devoted exclusively to 
the support of QL users. That is the same 
"domino effect" that Timex Support experienced 
when the TS-2060 production was suddenly 
stopped. We supporters hang on as long as the 
dwindling numbers allow, and then must fold the 
cards. We had hoped that the combining of 
Syncware News and Quantum Levels would see them 
through. 

Hang ON to our Resources 1 

Tom Bent, the editor of Quantum Levels, is 
the leading QL technical expert in North 
America. Tom is also the President of the 
Capitol Area User Group (CATS), and is the 
Quanta Librarian for North America. Tom has a 
deep commitment to QL Computing and support. 
It is in the best interests of all QL users 
that we keep Tom Bent's expertise available to 
us for as long as the QL user Group can 
maintain its enthusiasm. With that objective 
in mind I have written to Tom Bent inviting him 
to participate with Update Magazine so that we 
will keep his expertise and services readily at 
hand. Drop Tom a line if you will and urge him 
to participate with us. (Make him feel 
wanted!) Also, several have ask me for Tom's 
address to send their QL's for ROM upgrade. 
TOM BENT, 9016 Flicker Place, Columbia, MD 
21045. Hang in there with us Toml 



discription of other issue disks in the Update 
Library. The library has a good variety and 
has grown to a size that it is no longer 
feasable to describe all. issue disk ensembles 
in each magazine issue. 

The Issue Disk program is a joint effort by 
Update Magazine and individual programmers to 
provide QUALITY NEW programs and utilities for 
the users. Pricing is to cover expenses and to 
provide $11.00 per disk to the programmer of 
the principal program included in the disk. 
This is Update Magazine's version of the 
Shareware concept. The Issue Disk concept was 
designed to encourage programmers to PRODUCE, 
while taking the burdens of advertising, 
literature production and mailing from their 
shoulders. Each program and utility is 
documented in the pages of Update in the form 
of a "mini manual". Shorter programs may be 
key-in projects with detailed program analysis. 
The programs are tested at Update to insure 
proper operation. 

The Issue disk programs are not in public 
domain and they remain the property of the 
author unless specifically given to public 
domain within the text of the documentation. 
Some authors use the issue disk as their first 
outlet for the software and follow on with 
' separate marketing efforts. All programs are . 
original, are NEW and are well tested. When 
you buy an Issue Disk you get more than your 
money's worth of useful software, and you help 
to encourage a programmer;, to continue to 
support us all. If no author's name appears in 
the documentation of a program it signifies a 
program authored by Update Magazine in-house. 
Some are produced jointly by Update and another 
programmer. An example of this is the "DBase 
1" software in this issue, produced by Update 
and assisted by Don Lamen. Don will share in 
the proceeds. The Issue Disk program is 
unique. You get excellent new software, and 
our programmers are encouraged to PRODUCE. 



NEW ISSUE DISKS - QL and TS-2068 

NEW Update issue disks are unveiled in this 
July 89 issue for the TS-2068 users and for the 
QL users. TS-2068 issue disks are available in 
three disk formats, LKDOS, Oliger DOS, and 
Aerco FD-68, 40 or 80 track, on 5 1/4" disk. 

QL issue disks are available in 80 Track, 5 
1/4" Floppy or in Micro drive Cartridge. If 
ordering for micro drive, please inclose a 
formatted mdv cartridge for dubbing. 

The prices for all issue disk ensembles is 
$22.00 (includes shipping). Satisfaction is 
guaranteed or money back. See the index for 
full discription of the issue disk programs. 
Also check the index of past Update issues foi? 
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SUBSCRIPTION RENEWAL TIME 



This is the last issue of the 1989 issue 
year, and is your last issue unless you have 
already renewed your subscription. Please 
RENEW NOW. Update needs the money to pay for 
the next issue publication. Subscription 
renewal is $18.00 for a year of issues (October 
through July). 

With your renewal please state your Computer 
type and preferred Disk Drive format (40 or 80 
tracks). We attempt to keep a data base with 
that information for your support. 
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"Mlz.B4" (A Mizzery Saver) 

OR- A program for Programmers 

Oontated to Public Domain by: 

Update Magazine 

This one Is for the hard working programmers 
who contribute their works to magazines or to 
their user group. We wl II set the scenario. You 
have worked away with an assembl y program and 
finally It Is checked out and working. You are 
tired of the program, and you'd like to go on to 
something else. But you aren't through yetl It 
Is pure misery to have to construct a LOADER 
program with a table of Decimal Code numbers to 
POKE the code to memory and save the code program 
to disk. But you have to do that In order to tell 
people how to work your code Into memory and Into 
a disk f I le. 

We will name this program "Mlz.B4", because 
It relieves you of creating a loader program "that 
B-4 Now has caused you so much Mizzery"- (mtz.B4 
now, that Is). 

"Mlz.B4" publishes your code loader/saver In 
the form of a Basic LUST of the loader program. 
The data lines are created by PEEKING your Code 
program from memory. Your "pupl I" who types the 
program In Is given the Loader already prepared to 
key In. Mlz.B4 provides a check sum at the end 
for the "Joe or Jane" to key In to check their 
key-In accuracy. And YOU, the programmer, can go 
on to working on another program without the 
mizzery of having to create that long table of 
decimal numbers. For a proof of this, look at the 
"LOADER PROGRAM LISTING" given with the program 
"TS-2068 Data Input" elsewhere In this Issue. 
That Loader program was created by "th I s-un". 

As most programmers can tell, line 90 
Initializes LKDOS for printing a 32 column LLIST, 
and lines 100 and 250 uses LKDOS syntax for LOAD 
and SAVE. Chang* those Unss to suit your DOS 
requl rements. 

Instead of a lot of other line number 
explanations, Just key In the program and work It 
on one of your code programs that you know the 
starting address number In memory and the Byte 
Length. Then <RUN> and watch It create your 
LOADER/SAVER LLIST Prgram, complete with Fllled-ln 
DATA lines, ready to publish. Have some fun next 
time, Instead of working on another Loader program 
and decimal table after your next MC Code 
creation. _BJ- 



80 REM **** Create a Loader 
program with DATA lines for a 
CODE Program In disk. **** 

85 REM ** Donated to Public 
Domain by Update Magazine ** 
ii 

90 BORDER 0: PAPER 0: INK 7: C 
LS : RANDOMIZE USR 100: OPEN #3, 
"|pti : RANDOMIZE USR 100: POKE 16 
096,0: RANDOMIZE USR 100: POKE 1 
6090,31: RANDOMIZE USR 100: POKE 

16092,0: RANDOMIZE USR 100: P0K 
E 16094,8: LPRINT 

100 LET a=2000: LET p=0: RANDOM 
IZE USR 100: CAT ".C1»,: INPUT " 
CM© FU* * £XT?";x$: RANDOMIZE 
USR 100: L0A r D x$C0l>E : W01 
art Adr or Where to SAVE the Co 
de?»;x1: INPUT "Byte Length?"jx2 

: LET x=0 

105 LLIST 200 

110 FOR n=xl TO x1+x2-1 STEP 20 

120 LPRINT a;" DATA ";: LET a=a 
+2 

124 FOR y=n TO n+19: LET p=PEEK 
y: IF y>x1+x2-1 THEN GO TO 170 

126 IF y<n+19 THEN LPRINT p;", 
»;: LET x«x+p 

128 IF y=n+19 THEN LPRINT p: L 
ET x=x+p 

130 NEXT y 

160 NEXT n: STOP 

170 LPRINT p: LET x=x+p : LPRINT 

a;" REM Check sum=";x: STOP 

200 REM *** LOADER PROGRAM 
LISTING ** 

210 CLS : INPUT "Input Check Su 
m of Program" ;ck: INPUT "Input S 
tart Add res to SAVE Code ";x1: I 
NPUT "Input Byte Length :";x2 

220 RESTORE 2000: LET x»0: FOR 
n=x1 TO x1+x2-1: READ a: LET x=x 
+a:: POKE n,a: REM *Poker* 

225 NEXT n 

230 LET b=0: FOR n=x1 TO x1+x2- 
1: LET b=b+PEEK n: REM * Get Act 
ual Sum * 

232 NEXT n 

234 IF b=ck THEN GO TO 250 

240 BEEP 2,6: PRINT "ERROR I Re 
check work.": STOP 

250 CLS : INPUT "Key In a Code 
Name To SAVE. Include Extens 
lon-";a$: INPUT " Input Start I ng 
Address for SAVE ";x: RANDOMIZE 
USR 100: SAVE a$C0DE x,x2 

260 CLS : PRINT AT 10,0;"The co 
de program has been SAVED at add 
ress ";x: STOP 



See Page 5(/for "Data Input" and Its Loader created with this program. 
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Window Defining: 
A Program, part I 



The Sinclair QL 
Advanced Programming 



by David McCall 



When programming, to get the full power out of your Sinclair QL one must 
learn how to effectively use its windows. Using the SuperBASIC commands can 
become tedious and slow. This series of four articles will develop a program 
to completely define any window giving all relevant facts about it. The first 
segment will give a general overview and discuss the assembly language routine 
that will be used. The second installment will be about the required functions. 
The third will discuss the procedures used and the fourth will be the main pro- 
gram. Each segment will be a brief tutorial on the relevant subject while at 
the same time presenting some useful features the can be used in your own pro- 
grams. 

The window defining program that will be developed started out as a simple 
assembly language routine to size and move a window on the screen but, other 
details about the window were continually being needed in the development of 
SuperBASIC programs. Details such as how many characters can be printed in the 
window with the desired character size and border width. With the program this 
calculation can easily be displayed with any of the parameters being changed 
and giving a new answer immediately. Other laborious problems when done 
strictly in SuperBASIC such as scaling the screen and positioning the origin, 
determining maximum and minimum point positions, etc., can be avoided after the 
next four articles and the program is completed. In the process of developing 
the utility, you will obtain a better understanding of SuperBASIC's structured 
programming potential and the integrated use of functions, procedures, and 
machine language calls. 

The first thing needed to give the program a professional quality and save 
any relevant data on the screen as the window is being moved and defined is a 
window swapping routine. This needs to be done quickly and efficiently. Of 
course, assembly language will be the best choice. However, before we start to 
write the routine we need to know how the screen is stored in memory. 

Screen memory starts at location 131072 and has 512 by 256 pixels stored 
in 32 continuous kilobytes. Eight pixels are stored per every word (16 bits or 
2 bytes). Depending on the mode, it may seem as if there are only four pixels 
per word but, two pixels are combined to achieve more colors. The format of the 
word is not very important to the swapping routine because, it will swap only 
on eight pixel or word boundaries. This choice was made to make the routine 
work as fast as possible. More information about the format is given on page 30 
in the Concepts section of the QL manual. 

The routine will merely copy one noncontinuous region of memory to a con- 
tinuous region. In our case, the noncontinuous region will be part of the QL's 
screen menory. It is noncontinuous because the window may not fill up the 
entire screen. It is being saved in a continuous fashion just like the entire 
screen for the QL is stored, thus saving memory and time when the copying takes 
place. With a few minor changes it can be used for other purposes. The basic 
algorithm for performing the swapping is: 1) Determine starting location of the 
window in memory; 2) Copy the first row of pixels from the screen's memory to 
the storage memory for the window, or vice versa; 3) Continue copying rows 
until the entire window has been copied. 

To determine the staring location of the window in memory, we need to cal- 
culate the byte displacement from the start of screen memory, 131072, When a 
window is defined, it is given an origin, (XO,YO), which is the displacement 
from the pixel origin, the upper left hand corner. From this we can calculate 
the position of the first byte of the window. The 1 byte displacement in the 
pixels per word, and then multiplied by 2, to get the number of bytes, 
INT(XO/8)*2. Similarly, the byte displacement in the y-direction would be 
YO*128 (128=512/8*2, total number of pixels per row divided by the number of 
pixels per word, times 2 to adjust for the number of bytes). Therefore, the 
starting position is 131072 + INT(XD/8)*2 + YO*128. Lines 14 to 19 in listing A 
performs the necessary calculations except XO is entered as the number of 
words and needs only to be converted to the number of bytes. The conversion of 
XO into the number of words is done . in SuperBASIC before the routine is 
executed. 

Lines 14 to 19 do not look exactly like the calculation above because, 
some techniques have been used to increase the speed of the calculation. When 
converting XO into bytes, instead of directly multiplying by 2, a logical shift 
is done. Whenever a number needs to be multiplied or divided by a power of 2 it 
can always be done in assembly language by shifting left or right, respec- 
tively, by the power. This shifting is also done when YO needs to be multiplied 
by 128. Instead it is shifted to the left by 7. 

Steps 2) and 3) of the algorithm can easily be accomplished by two nested 
FOR loops or their equivalent in assembly language. Hie loops would cover the 
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complete dimensions of the window, (XX, YY). In listing A, lines 22 to 27 set 
up the initial values for the two loops labeled REPY and REPX (REPY2 & REPX2 
for saving the screen. The discussion will only cover the window recalling por- 
tion becaSse, saving and recalling are identical except for the direction of 
storage. See listing A.) One is subtracted from both XX and YY, the looping 
variables which are initially the dimensions of the window, because of the 
looping technique used. , _ . 

The assembly language instruction DBxx is used for the main loop. It is a 
typical decrement and branch instruction with a slight twist. First, it keeps 
decrementing its control register until it equals negative one, which means one 
less than the actual number of times through the loop needs to be stored in the 
control register, and then control drops through to the next instruction. The 
twist to this instruction is the 'xx» part. It allows the testing °f certain 
conditions and if met, passing execution to the next instruction regardless of 
the count. In our routine, we do not need this ability hence, we have it check 
the carry flag which is always reset after a MOVE instruction which is directly 
preceding the DBCS instruction. The next couple of instructlo ??^ on ^^ c ?? 0 ^ d 
YY into the number of displacement bytes of the appropria te directions. 
Finally, the value of the last byte position is calculated to determine when 
the entire window has been copied. „ nlln t or f«r 

, The main part of the routine is in lines 34 to 45. First, the counter Cor 
REPX is determined, which is half of XX since words will be copied instead of 
bytes, and stored. Next the loop is entered and a row of pixels is recalled 
word oy word, lines 37 to 39. Indirect addressing with post inc rement is used 
to accomplish this task. The postincrement will automatically position the 
pointer, SPOS, to the next word position in that row. ^/f^J 0 ^^ 00 ?^ 
into a temporary storage register, line 37 and then copied to the screen, line 
30. The counter is decrement, checked and branching taken appropriately, line 

39< Once out of the loop, the memory position of ^/i^t byte on the next 
row is calculated, lines 41 to 42. This is accomplished by subtr acting XX from 
the current screen position, POS, which puts the pointer back on the first word 
of that row. Next, one hundred twenty-six is added to position the pointer on 
the first word of the next row. This value is compared to the actual last byte 
value of the window in line 44 and if greater than, then the window has been 
completely copied and the routine terminates, line 45. The only thing left to 
discuss about the assembly language part of the routine is lines 29 and 30. 
These two lines branch to the proper portion of the routine depending on the 
value in register Dl, called TEMP in the listing. On Dl=0, the window is saved 

and. on Dl-i, the window is recalled. ~ui-A n r 

To use the swapping routine, listing A must be typed in and assembled or 
listing D must be typed^n and ran. Listing A is an assembly language version 
of ne g routine. Listing B is a SuperBASIC prograrn which will P^uce the same 
machine language file a! listing A would after being as «™bled. The ma^ne 
language file which must be loaded into memory with the following SuperBASIC 
cSnds where X0,Y0 are the origin in pixels, XX,YY are the dimensions in 
pSsf'xO w?TO_w are the origin in words, and XX_w,YY_w are the dimensions in 
words of the window that will be swapped. 

XO w = INT(X0/8 - .5): IF XO_w < 0 THEN XO_w - 0 
YQ~w * YQ - U IF YQ <rf < Q THEN YO w - 0 

XjTw - INT(XX/8 -K5)+2: IF XO w + XX_w >64 THEN XX ^S4-X0_w 
YY"w - YO w 4 1: IF YO_w + YY^w > 256 THEN Y0_w - 256-YO_w 
swap = RESPR(100 + YY_w*XX_w*2) 

LBYTES {.file name! , swap , . . nnm ™ lhP H 

The preliminary variable declarations usually only need to be computed 
once at the beginning of the program. The additions and subtractions of .5, 1 
and 2 are needed to ensure the entire window will be saved if the window is not 
on the 8-pixel boundaries that the routine requires. The variables are in terms 
of the nSber or words because the routine needs the origin and position m 

th8t On™' loaded, to save the screen underneath the window execute the 
ln ^rSL CALL swan 0,X0 w.YO w,XX w,YY w. This executes the assembly lan- 
ouage rou ine ^p™?b, XCTw YO i, XxVyY_w into registers Dl through D5 
fesoectivelv which will cause the" window area to be saved. Now, you can do 
whateverls needed in the window. When done, the window area can be restored 

^^W^^i^S-^Si windows that can be used in any program. 
Many Copies of the routine can be used to have swapping among several windows, 
in y the final window defining program, tw 0> windows will be sw £PPf ' °ne will 
have constantly changing origin and dimensions, which is why these values are 
left in the CALL instruction The only limit on the number of windows being 
swapped is the amount of free memory. 
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In the next segment a Useful alternative to the standard INPUT function of 
integers will be introduced. It will be written as a SuperBASIC function with 
plenty of explanations. Other functions will be given that will determine 
potentially needed information about a given window. 



LISTING A. 



1: MEMORY 


EQU 


131072 


2: T128 


EQU 


7 


3: 12 


EQU 


1 


4: * 






5: POS 


EQUR 


AO 


6: SPOS 


EQUR 


Al 


7: XO 


EQUR 


D2 


8: YO 


EOUR 


D3 


9: XX 


EQUR 


D4 


.10: YY 


EQUR 


D5 


11: INC 


EQUR 


D6 


12: TEMP 


EQUR 


Di 


13: * 






14: 


LEA.L 


STORE, SPOS 


15: 


MOVE.L 


#MEMORY,POS 


16: 


LSL.L 


#T2,X0 


17: 


ADDA.L 


X0,P0S 


18: 


LSL.L 


#T128,Y0 


19: 


ADDA.L 


Y0,POS 


20: * 






21: * 






22: 


SUBQ.L 


#1,YY 


23: 


SUBQ.L 


#1,XX 


24: 


LSL.L 


#T128,YY 


25: 


LSL.L 


#T2,XX 


26: 


ADD.L 


XX, YY 


27: 


ADD.L 


POS,YY 


28: * 






29: 


CMP.L 


#0,TEMP 


30: 


BEQ 


REPY2 


31: * 






32: * Recall 


screen 




33: * 






34: REPY 


MOVE.L 


XX, INC 


35: 


LSR.L 


#17, INC 


36: REPX 




(SPOS)+,TEMP 


37: 


MOVE.W 


38: 


MOVE.W 


TEMP, (POS )+ 


39: 


DBCS 


INC, REPX 


40: * 






41: 


SUBA.L 


XX, POS 


42: 


ADDA.L 


#126, POS 


43: 






44: 


CMP.L 


P0S,YY 


45: 


BGE 


REPY 


46: 






47: 


BRA.S 


ENDING 


48: * 






49: * Save screen 




50: * 






51: REPY2 


MOVE.L 


XX, INC 


52: 


LSR.L 


#T2,INC 


53: REPX2 




(POS )+, TEMP 
TEMP, (SPOS )+ 


54: 


MOVE.W 


55: 


MOVE.W 


56: 


DBCS 


INC,REPX2 


57: * 






58: 


SUBA.L 


XX, POS 
#126, POS 


59: 


ADDA.L 


60: 




P0S,YY 


61: 


CMP.L 


62: 


BGE 


REPY2 


63: 






64: ENDING 


MOVEQ 


#0,D0 



Start of screen memory 

Shift amount to multiply by 128 

Shift amount to multiply by 2 

Current position reading 
Current position saving to 
Origin of window to save (1 to 64) 

(1 to 256) 

Width of window to save 
Height of window to save 
Looping control register 
Byte being copied 

Get start of memory to save to 

Get start of screen memory 

Times 2 to get the number of bytes 

Add to start of screen memory 

Times 128 to get number of bytes 

Add to start of screen memory 

POS now is at first byte of memory 

to save. 
Setting up looping controls 



YY is pos. of last byte to save 

Test to see if saving or recalling 
Screen . ( temp=0 , save : temp=l , recall) 



Number of bytes per line 
Copying words so divide by 2 

Get saved word 

Put saved word on the screen 

Decrement counter and loop 

appropriately 
Done with line - Get position for 

beginning of next line 

Check to see if done 
Branch if not done 

Done so goto end 



Number of bytes per line 
Copying words so divide by 2 

Get screen word 
Save word in memory 
Decrement counter and loop 

appropriately 
Done with line - Get position for 

beginning of next line 

Check to see if done 
Branch if not done 

No errors 
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65 » RTS 
661 

67: STORE DS.W 1 
68: 

69: END 



Return 

Start of screen save region 



10 OPEN NEW #5, Uile name J :REMark Replace idle namej with your file name 

20 FOR T-l TO 100 

25 READ byte7. 

30 PRIKr #5,aiR$(byte%); 

40 END FOR i 

45 PRINT #5,\ 

1000^TA 67, 250,0,96, 32,124,0,2,0,128,227 
1010 DATA 138, 209 ,19A, 239, 139, 209, 195, 83. 133, 83, 132 
1020 DATA 239 141,227,140,218,132,218,136,178,188,0 
1030 DATA 0,0,0,103,0,0,30,44,4,226,142 . , „ rtn 
}040 DATA 56,25;48,i93,85,206 255,250, 4 ,196,209 
1050 DATA 252,0,0,0,126,186,136,108,0,255,232 
1060 DATA 96,26,44,4,226,142,50,24,50,193,85 
1070 DATA 206,255,250,145,196,209,252,0,0,0,126 
1080 DATA 186,136,108,0,255,232,112,0,78,117,0 
1090 DATA 0 

Editor notes. David McCall begins the first of a series in Update for Advanced 
Programming the Sinclair QL. David's outstanding tutorial on Machine Code and 
SuSr Basic programming will continue with three more i™a^U*nts. 
installment will^cntain 'starrf alone' programming that can be keyed in and used. 
The four ensembles of programming may be merged Into one operating Program. This 
four article series will be followed by tutorials covering other major subjects. 
The series will become a valuable and permanent reference for those who are 
seeking to become profficient in programming the Sinclair QL. 

****************************************^ 



Software for the QL that really works 
Ve market software for business, financial and teoh nical JPP^£ 

Ve create much of our own software but we market software by other 
programs Please call/write for details about our arrangements. 

New software in our catalogue Includes RECIFE, /£*™\^ PSI 
the latest versions of TKVST FUED, HA 1 LB AG and QLABD_LORD. Ana we 
silll have DBTut'br, a flash-card program ^ teach yourse f anything 
you need to know, and DBProgs with 5 useful Archive ^J 1 ™' ™ 
have The Transfer V3, for HF compatible laser printing of DTP flies 
and a range of other useful, hard-working software for the . 

^dla'wlth 'your'l^olce^r I,U credit toward TAX-l-QL/09. 
JBIX&oJ?*:, F.O. Box 8763, Boston MA 02114 (617) 889-0830 



Vanted* Useful programs for the QL. Any topic that does real work; 
Irn,!h r S aaalvsis spreadsheet templates, stock market analysis, 
1 "oiSr;. "Ecyaltiea u/to 85%. Contact BMSoft^Box 
8763, Boston, MA 02114 or call (617) 889-0830. 
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HOW TO MOD IFY A COUECO ADAH POUEft SUPPLY FOR YOUR U.L. Byt Dan Elliott 
Completion o£ this project requires the following: 



An ACCURATE DVM, low temp, soldering iron, solder sucker, x-acto knife, 
MO watt soldering gun, diagonal cutters, needle nose pliers, drill, 
a 7912 regulator chip, an assortment o£ resistors* a 9 pin male "D" 
connector, some .22 gauge insulated wire, and a little patience. 



First plug in your ADAH power 
They should be very close to thos 



upply and test the output voltages, 
the diagram b elow lefti 




( £J0 ca.A/AAgc7VoAD 



I 




Next, unplug the power supply and remove the 4 screws that hold the heat 
sink to the chassis, and the 6 screws that hold the circuit board to the 
chassis. Now you can lift the circuit board with heat sink from the chassis 
to make the mods. Using the soldering gun, remove the red wires from the 
circuit board at 153 and E4. Remove the green wires f rom E8 and E.7. 
Install the red wires ' inTs and E.J, and the green wireB -In E3 and" B4. 
Next, with thlTeoldering ITon andsolder' sucker, unsolder U4~( 79M05T- 
Remove the screw holding it and remove the regulator. Install the 7912 
regulator at U4, fasten and solder it. Remove R21 and replace it with a 
12K resistor ."Install a 2K shunt resistor across Rfl • 



Cover the transformer with a piece of cardboard. Lay the circuit board 
on top of the cardboard and plug In the power supply. Measure the voltages 
at the end of the gray cable. If they do not agree with the voltages in the 
diagram above right, you will have to experiment with resistors at 
R 21 for TW72V, or E8 for 45.2V , or R32 for +12. OV . 

Do not proceed with this modification until these voltages are correct. 

Reassemble the power supply using the screws you removed earlier. With a 
Oroung lug and a screw and nut, solder and fasten the blue, violet and 
bare wires to the chassis. With diagonal cutters and x-acto knife, remove 
the two rectangular alignment pins from the power, output: connector . . 
Scrape off the letters "TOP" from the cable end> as this surface will 
become the bottom When you plug it into the Q.L., later , on. 

PART II - Q .L. MODIFICATION FOR ADAH POWER, SUPPLY OPTION 

Open up your Q.L.. and lay the keyboard assembly aside. Use a 9 pin "D" 
connector as a template to mark the spot for mounting the power jack for 
the modified ADAM power supply. The Ideal location is through the back of 
the 0.1,. case just to the left of the mother board. Center, the connector 
with narrow side facing up. Mark the back of the case with felt tip pen. 
Use these marks ns a guide for drilling out the mounting holes. Use the 
X-acto knife to cut the hole in the shape of your "D" connector. When the 
hole is the correct shape, mark and drill the two holes for fastening the 
connector. — » 
Next, strip and tin 5 pieces of 22 gauge insulated wire, each about £ 
inches long. Solder them to pins 1 through 5 of the "D" connector. 
Solder wire from pin 11 to left leg of C54. (+12V) 
Solder wire from pin 12 to upper leg of C56 . (+8V) 

Solder wire from pin »3 to BUS to the right of C56. I +5 V J - A SO** Lg£ 
Solder wire from pin 14 to left leg o£ C58. (-12V) 
Solder wire from pin #5 to right leg of C58. (GROUND) 
Now mount the "D" connector using 4-40 or smaller screws and nuts, 
route the wires under the "D" connector and out of the way of the Q.L. 
expansion connector. Remove +5V regulator with heat sink from Q.I*. 
Double check all of the wiring, hook up the modified power supply and 
fire it upl If you did it right, your Q.L. should initialize normally. 

This modification will allow your Q.L. to run much cooler thus eliminating 
the crash problems associated with the inferior Q.L. power supply. 
If you still experience intermittent crash problems after doing this 
modification, then your mother board is probably defective. 

The Unm odified ADAM power supplier are available from AMERICAN DESIGN 
COMPCtTEBiTS, " arid a few other surplus electronics dealers. If you have any 
trouble locating the parts or if you have other problems, write or call me 
and I will try to help you out. 

DAN ELLIOTT Phone i (314) 739-1712 evenings, Sunday through Thursday. 

RT 1, BOX 117 
CABOOL, MO. 65689 
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"dprtr.B6" 

A Universal Code Data File Printer. 

For All TS-2068 Configurations 

Donated to Public Domain, by Update Magazine. 

5226 CLEAR : RANDOMIZE USR VAL "100": LOAD "ccle 
ar.CI"C0DE : RANDOMIZE USR VAL "100": LOAD "ca.C 
I "SCREENS : PAUSE 0: LET z=C0DE INKEY$-VAL "48": 
: GO TO (z>VAL "2")*VAL "5226"+( z=VAL "2")*VAL " 
5228"+(z=VAL "1")*VAL "5250" 

5228 LET x=VAL "0": LET p=VAL "I": LET I =VAL "1" 
: LET a=VAL "0": LET pl=VAL "56": LET c=VAL "64" 
: RANDOMIZE USR VAL "100": LOAD "cl nfo.C P'SCREEN 
$ : PAUSE VAL "0" 

5230 RANDOMIZE USR VAL "100": LOAD "cc I r.C I "CODE 
: CLS : INPUT "Insert Data Disk, then ENTER D0# 

"jdd: RANDOMIZE USR VAL "100": GO TO dd : RANDOM I 

ZE USR VAL "100": CAT ",C°",: INPUT "Key In Code 
File + EXT";w$: RANDOMIZE USR VAL "100": LOAD w 

SCODE VAL "50000" 

5232 INPUT "Install Program Disk, then ENTE 
R Disk #";dd: RANDOMIZE USR VAL "100": GO TO dd : 

INPUT "Input Line length" ;c: RANDOMIZE USR VAL 
"100": POKE VAL " 1 6090", (c -VAL "1"): CLS : INPUT 

"Print at TAB?"; tab: RANDOMIZE USR VAL "100": P 
OKE VAL "16094", tab: LPRINT : INPUT "Start print 

at Llne#7";x: LET l=x: FOR g=VAL "I" TO x: LPRI 
NT : NEXT g: INPUT "Lines per page7";pl: INPUT " 
Paqe #?":p 

5234 LET b=VAL "0": FOR n=50000 TO 65535: LET a= 
PEEK n: IF a=0 THEN GO TO 5242 
5236 IF a= 13 THEN LPRINT ' 

5238 IF a>31 THEN LPRINT CHR$ a;: LET b-b+1: IF 
b>63 THEN LET b=0: LET L-L+1: IF L>c THEN LPR 

INT "TAB 32;p: LET L=0: LET p-p+1; LPRINT : OUT 
127,12: LPRINT : BEEP 1,20: PAUSE 0 

5240 NEXT n 

5242 FOR n=L TO c: LPRINT : NEXT n: LPRINT TAB c 
/VAL "2";p: OUT VAL "127", VAL "12": GO TO VAL "5 
290" 

5250 STOP , „ , . 

5290 CLS : PRINT AT VAL "10", VAL »0";"<1> Print 
another Flle"""<2> QUIP": PAUSE VAL "0": LET z= 
CODE INKEYS-VAL "48": GO TO (z>VAL "1"-)»VAL "530 
0"+(z<VAL "2")*VAL "5230" 



Either Sequential Fllos, or 
or TASK I may »« •lect«d. 



SELECT row Choice t 

Ill Print Sequential Files 
12 I Print Code File 



Code Printer I 



line Length. (Try 64) 

3. Watch the print out. 

4. IF NOT a formatted Line, then 
BREAK, Count the characters 

to find the Line length. 



6. Then Type <GO TO 5230> ENTER. 

Pleas, make a note of f523o) 
EKTER to Start. 
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The Universal Code Data Printer: 

This neat program will work with any TS-2068 
configuration, Including Cassette, or Disk 
Systems, (with modifications). The program is 
designed to be a MERGE IN program for the new 
DAISY.B6 software, but It operates independently, 
with RUN or GO TO 5226. When MERGED to any Basic 
program, It provides the capability to PRINT -OUT 
data files previously SAVED as ASCII Fi les in 
Code. Some examples of such flies are "Mscript 
Files, Taswl Files, and files saved via Telecom 
Modem". For the Dalsy.B6 software this "dprtr.B6" 
program Is MERGED via a menu elective to "steal 
and print" data files created with other software. 
(Sneaky, eh?) Well, what the hecki Most Ta-2068 
users have one of the small word processors, 
either Mscript or Tasword, and many swap data 
files back and forth on either cassette or disk. 
Now Smart Text users can print out these files at 
will. And the Dalsy.B6 program does It via menu 
e lectlve. 

Line #5226 starts right off with some 
Intanqables to be explained. I. The program 
ASSUMES that a LKD0S INITIALIZATION has taken 
place, the type of Interface poked to adr 16096, 
and line feed need poked to adr 16092 For other 
DOS systems, change the programming to Initial Ize 
the DOS with printing parameters. For some this 
will Involve adding a line ahead of $5226 to load 
the prcode and Initialize It. 

2 Still at line 5226, A "BLANK" Code program 
"cclear.Cl" is loaded to CLEAR the area In memory 
from adr 50000 to 65367. To get this code program 
on disk or cassette, Turn ON the Computer and type 
< SAVE "cclear" CODE 50000,15367 >. This saves 
15367 "zeroes", not worth too much for any purpose 
but to clear out that range of addresses when 
needed. We wi I I use this space In memory later 
for loading all sorts of Code Data f I les to be 
printed, one file after another until the computer 
room overflows with paper. 

3 Still at line 5226, we load In a 
Information Screen with <L0AD "ca.Ci "SCREENS. 
Refer to fig 1 for a print out of the screen. You 
can omit this In the program and just go on to the 
next line. By the way, the selection <1> Is not 
included here/ That '"Print Sequential Flies" 
routine will be added In the October issue of 
OpdaY« \U * can T-errremfc^v 1re *o <m, 

4. Another Info screen Is booted I n w I ^th II ne 
#5228. Figure 2 shows this "cl nfo.C l"SCRET£N$ 
file. 5. At line #5230 we LOAD the cclear.Cl f le 
of zeroes to clear out any code that may be hid ng 
in the needed area 50000-65367. Then the disk 
directory Is gotten and a prompt placed at bott ■om 
to Input the code file name. Incidentally the »•»' 
is my printer's character for the UP ARROW on the 
H Key The Up Arrow with LKD0S Is a wild card 
that aets all ",C» flies for the directory. 
Jonilnu'tlg- The fi le name Input is LOAD ED with a 
starting place of adr 50000. This limits the file 
lenqth to 1 5367 total characters, enough for most 
code files. But If you want to allow for larger 
files, you can change the load-In address to a 
lower address in memory. 

5 Line #5232 gets back the Program Disk and 
begins" prompts for print-out. Since we D0NT KNOW 
what line length the creator of the code file 
used, we have to guess. A smart guess would be 
"64". A few seconds later we will find out 
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whether the guess hit the mark. If the lines 
print with wrap-around words, we BREAK after a few 
lines have printed , and examine the printed 
lines. Count the characters In the lines and you 
can find the formatted line length. Then TYPE GO 
TO 5230. This time you can enter the proper line 
length and the print-out will be true to Its 
prepared format, 

6. Lines 5234 through 5340 uses the N counter 
to peek out the code characters and print them. 
Taswl files have padded In spaces (code 32) to 
format lines. Since this program Is In BASIC, a 
line of spaces causes a short pause In the first 
couple of lines. After that fhe printer's 
character buffer begins to store characters and 
work ahead of the printer, thus the time for 
subsequent line spacing Is absorbed. On the other 
hand, Mscrlpt line spacing Is gotten by the 
Insertion of ENTER (chr Code 13) at the end of 
each line. Line #5236 takes care of Mr. Mscrlpt. 
Other AscI I Files may use a combination of these 
techniques. Text flies that contain PRINTER CODED 
Command Characters may need to be EDITED If the 
character codes are printable ones, as "/", 

"*», etc. You can EDIT LINE 5238 and add within 
the "IF THEN" statement "IF a>13 OR a <I23 

THEN" . Tills will exclude any Un-Prlnfable 

character codes from being processed. 

7. Line #5238 contains programming to affect 
a Page END, providing a page number and a FORM 
FEED. You may remove the "PAUSE 0" If using a Dot 
Matrix printer. The pause Is to allow the 
Insertion of a cut sheet of paper. 8. Line 5242 
Is the clean-up programming after all code has 
been printed. The N counter Is used again to 
space down to the page end and print the last page 
number. 9. Line #5250 Is where we will start the 
next programming to print out Sequential Files (In 
the next Issue of Update), 10. Line # 5290 allows 
you to go back and print another code file, or 
QUIT. The QUIT line (5300) Is hiding I n the 
DAISY.B6 program. Change the 60 TO to whatever 
line number you need for Quitting. The following 
lines are used by Da I sy.B6 to f I rst MERGE th I s 
"dprtr program", then "DELETE It when QUIT Is 
el ected " : 

5220 CLEAR: RANDOMIZE USR VAL "100": MERGE 
"dprtr. B6» 

5300 DELETE VAL "5226", VAL "5290": RANDOMIZE 
USR VAL "100": POKE VAL "16090", VAL "136": 
RANDOMIZE USR VAL "100": POKE VAL "16094", VAL 
"0": CLEAR: RANDOMIZE USR VAL "100": MERGE 
"varsv.86": DIM K$(VAL »8»): DIM v$(VAL "1866"): 
GO TO VAL "9990" 

The above Is given for an Insight Into the 
Dalsy.B6 manipulations of the MERGE function. 
First we DELETE the "dprtr. B6" program, THEN RESET 
the LKDOS EPR0M. Then we MERGE In the VARIABLE 
SAVE LOAD program. Then we set up the K$ and V$ 
parameters to accommodate a VARIABLE FILE LOAD of 
the Initialization vars file "01876.C2". GOTO 
9990 affects the vars file load to re- I n 1 1 1 a I Iz e 
the Daisy. B6 software. (The Variable File SAVE 
LOAD program was given In a previous Issue of 
Update). See you next Issue with the SEQ FILE 
Printer. -BJ 



| ** ANNOUN CEMENTS ** 
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HOST for 1990 Sinclair Conference?? L\ 

Update received a letter from SMUG, 5052 N. 
91st St., Milwaukee, WI 53225 (Bill 
Heberlin). Bill says that the SMUG group is 
interested in hosting a Sinclair Computer 
Fest for 1990. SMUG asks that all Dealers, 
or other persons, who are interested in 
participating in a 1990 Computer Fest to 
contact them. (To SMUG: Send your news 
releases to Update and we will help 
publicise. ) 



Public Domain Libraries Available 



1. Cassette or Disk for TS-2068: The Ontario 
User Group: George Chambers, 14 Richome 
Court, Scarborough, Ontario M1K 1Y1, Canada. 
Put a 30 cent stamp on your letter from U.S. 
and inclose a buck for return mailing. (no 
U.S. Stamps or coin). Inquire for price of 
library. 

2. CATS Library: TS-2068 Public Domain 
library on cassette, Oliger-LKDOS-FD-68 Disk. 
CATS, Box 457, Fairfax Station, VA 22039. 
Send $2.00 for information package. 

3. SINCUS Library: TS-2068 Public Domain 
library on cassette, Oliger Disk, LKDOS Disk. 
Send $2.00 for information package to: 
SINCUS, John Colona, 28 Guilfoyle Ave, 
Binghampton, NY 13903. 

4. VISTA Library: TS-1000 and TS-2068 Public 
Domain Library on either Cassette or LKDOS 
Disk (LKDOS for TS-1000 also). Send $2.00 
for information package to: Vista, Tony 
Willing, Box 199, Vashon, WA 98070. 

5. ISTUG Library: TS-1000 and TS-2068 Public 
Domain Library: Cassette and Oliger Disk. 
Send $2.00 for info to: ISTUG Frank Davis, 
513 East Main, Peru, IN 46970. Or call 
317-473-8031 rpt 



Subscriber Ads (For SALE) 



Large list of good used TS-1000 and OL 
software and hardware. SASE or Compuserve 
E-MAIL 747,3432. Letters to Carlos Lytle, 
1064 Worthington Woods Blv. , Worthington, OH 
43085. Or call 614-846-3543. 

I have an extensive hoard of TS-2068 and 
TS-1000 software and books to sell. Send 
SASE for list. Marinus Heuseveldt, 3955 
Hallmark Cir. , Lantana, FL 33462 
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The FD-68 Update 

Bys Syd Wyncoop 

Last issue I left you with a promise of some routines to 
convert between Sinolair/Timex mode and CP/M mode on the FD-68. 
As the routines are quite long and I write my oode to be self 
documenting, I will give the routines first. Here is the CP/M 
to Sinclair routine: 



;CP/M to Sinclair File Converter 



;Thls works by bank switching. ' The file to be converted will be 
; placed in the TPA and then transferred to chunks 6 & 7, in the 
;home bank. This places a file size restriction of 16K on the 
; transferred file however, this is large enough to accomodate 
;most machine code programs. The command to do this is: 

'; CPM2SIN f ilename, ext 

'; After the transfer, all chunks of the home bank are switched in 
;and the Sinclair ROM editing loop is entered, via a Basic NHW 
;command (the transferee! file resides above RAMTOP) . The user 
;can then save the file as bytes, with the following oommand: 

\ SAVE '■filename"CODE 49152,16384 

•As written, the CP/M file will always be moved to 49162 (chunk 
;6) and is limited to but, may be shorter than 16384. You 
; should use the true file size, if known, in order to save 
;SAVEing time. 

!lt should be noted that 16K is the practical limit to the file 
jsize to transfer, as R/PM uses chunk 4 (8000h) for the 64 
; column display routines and chunk 6 (AA00h) for stashing the 
;CCP for warm-booting. 

• Variables 



; These equates are 
; that I start all 
; typing. 



CFM 
BDOS 
BELL 

PRTSTRING 

TAB 

LF 

CR 

OPENFILE 
CLOSEFILE 
READSEQ 
SET DMA 

FILESIZE 
HORZSELECT 

m ... 

DMABUFFER 

NEW 

RASP 

T1MEXVARS 

RAMTOP 

PRAMTOP 

CHUNK6 

HOTOROFF 



standard variables that are Pjrt jf ^ lie 
»ssembly source files with. It saves a aot^ 



CP/M Warmstart address 

entry point for CP/M functions 

ASCII bell (beep) character 

CP/M function 

ASCII tab character 

ASCII line feed character 

ASCII carriage return character 

CP/M funotion 

CP/M function 

CP/M funotion 

CP/M function 

CP/M file oontrol block 

CP/M file parameters 

Timex hardware port 

CP/tt program area start 

"start of our tester file axo* 
Timex ROM routine 
Home Bank - Timex variable 
Home Bank - Timex variable area 
Home Bank - Timex variable 
Home Bank - Timex variable 
start address for memory chunk 6 
CP/M BDOS routine 



EQU 


0000h 


EQU 


000 6h 


EQU 


07 h 


EQU 


09h 


EQU 


09h 


EQU 


0Ah 


EQU 


0Dh 


EQU 


0Fh 


EQU 


10h 


EQU 


14h 


EQU 


lAh 


EQU 


005Ch 


EQU 


006Bh 


EQU 


0F4h 
6100h 


EQM 
EQU 


0B00h 


EQU 


0D82h 


EQU 


5C38h 


EQU 


5C3Ah 


EQU 


5CB2h 


EQU 


5CB4h 


EQU 


0C000h 


EQU 


0EF05h 



ORG TPA 



ZV^Slllfln .SSr'SSiS which .ive. the proper 

™„ia* to «... If » Sil "1Z\Tll T a«uie it See no? exi.t 
file. If unable to open the £lle,.we «■» otherwise, »e 

to the Home bank of memory. 

m ntr itpr + 1 ; point to filename 

^ M DK) spaces mean no name supplied 

A 1 , SYNTAX ^ive syntax error message 



START: 
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DEC DE 

LD C , OPENFILE 
CALL BDOS 
INC A 

JR Z.NOTFOUND 
LD DE , DMABUFFER 



;point to FCB 

;get funotion number 

; try to open file 

; oheck for error oode FFh 

;exit if file not found 

;elae, preset DMA address 



U filename was given and we were able to open the file, 
ineed to read the entire file into the TFA. 



We now 



READFILE: 



PUSH DE 
LD C , SETDMA 
CALL BDOG 
LD DE , FCB 
LD C , READSEQ 
CALL BDOS 
POP DE 
AND A 

JR NZ.READDONE 
LD HL,0080h 
ADD HL, DE 
EX DE, HL 
JR READFILE 



; save DMA pointer 
;get funotion number 
;go set DMA 
; point to filename 
; get function number 
;read the file 
; retrieve DMA pointer 
; check for EOF 
;done if EOF found 
; offset to next DMA 
; calculate new DMA 
;'put DMA back into DE 
; loop to keep reading 



This is the error message for an incorrect start to program. 
SYNTAX: CALL PRTMSG I put msg address on stack 

DEFB BELL, CR, LF ma' 
DEFM 'ERROR! No filename supplied . 
DEFB BELL, CR, LF, W 
DEFM 'Usage: CPM2SIN filena.ne.ext 
DEFB CR, LF, LF, ' 3T 
This is the error message for . filename which was supplied but 
cannot be opened or cannot be found. 
NOTFOUND- CALL PRTMSG !P«t msg address on stack 

DEFB BELL , CR, LF 

EN Bffi"Vm, F fc&? Eg? fSV" d ' 

^y/ss-rr v£J=£ Sir-' 1 " 8 

string to be printed has been put on the stack. 



PRTMSG : 



POP DE 

LD C , PRTSTRING 
CALL BDOS 
JP CPM 



; retrieve message address 
;get funotion number 
; print error message 
; return to CP/M 



move to chunks 6 & 7 in the Home bank. 



READDONE • LD DE , FCB 

LD C.CLOSEFILE 
CALL BDOS 
CALL MOTOROFF 
LD A, (FILESIZE) 
LD B, A 
LD DE,0080h 
LD HL,0000h 

SIZELOOP: ADD HL,DE 

DJNZ SIZELOOP 
PUSH HL 
POP BC 



; point to filename 

;get function number 

-.close the file 

;turn off disk drive motor 

•retrieve number of records 

;and put it in counter 

; set record size 

:olear accumulator 

jmultiply FILESIZE * 128 

| until multiplication is done 

; place the result 

;into BC for block move 



TRANSFER: DI 



uO A,3Fh 
OUT (HORZSELECT) , A 
LD HL, DMABUFFER 
LD DE, CHUNKS 
LDIR 



•.first, no interrupts 

; reset bits 6 & 7 for home bank 

: enable chunks 6 & 7 

; start of block to move 

; start of destination blook 

; do move 



chunks 6 & 7. 



RESTORET.IMEX ■ 



LD A , 0DFh 

OUT (HORZSELECT) , A 



; select chunk 5 

; enable home bank chunk 6 
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LD HL.JUMPTIMEX 
LD DK,0A000h 
LD BC , DONE - JUMPTIMEX 



; B ot-up for block move 



LDIR 
JP 0A000h 



move it home bank 
, go to home bank 



The following code is moved to the Home Bank, Chunk 6, and la 
run from there. 



JUMPTIMEX: 



LD A, 3Fh 
LD I, A 
IM 1 

LD IY, TIMEXVARB 
XOR A 

OUT (HORZSELECT) , A 

LD HL,0FFFFh 

LD (PRAMTOP) , HL 

LD H,0BFh 

LD (RAMTOP) , HL 

LD BG,40h 

LD (RASP).BC 

JP NEW 

NOP 

END 



;Timex initial values 



; select all chunks for home 
; bank 

;set PRAMTOP 

-.set RAMTOP value to protect 

; moved file at C000h 

; length of raspberry warning 

;go to Timex ROM 

; place marker for assembler 



The above program does not re-enable the Eprom code for a 

for this demonstration. #^„„-i - 

^^^^ 

Jaws « 

TlmeX Th°e d :eason for doing this is that CP/M has «J-h better 
tools for assembly language programming. I a}"*^* »Sone 412-282 - 
Z80ASM assembler by SLR Systems, Butler Pa, telephone 412 
0864) and the Z8E debugger, by Rick Surwilo. ZBE i8 P u ^ X ° Q/M 
domain and supplied with the FD-68 or can be found in the SIG/M 

Ubra Se program for transfering files from Sinclair to CP/M is: 



inolair to CP/M File Converter 



This works by bank switching. The file to £V wnUe Jn ?imex 
first be stored in the Home Bank, Chucks 6 & 7, while T ™«? 
mode CP/M is then warm-booted by placing your CP/M boot disk 
into disk drive A and issuing the command: 

' CAT "X.BOT", ' 

;This program is the companion *}f* ^K'tPA (o'neoTt'he 

Bank chunks from CP/M and move* , the B 2k chucks are 

S^^-^nabledr-L^^derio^e-esiabllsh CP/M and this routine 
is exited. 

done by calling the BDOS routines to write the file to dlsK 
SSIrS ;JK"2 to.oKir.b5™ to . M the technique. 
Variables 



CPM 

BDOS 

TPA 

BANK6 

V1DM0DE 

HORZSELECT 

HORZSTASH 



EQU 0000h 

EQU 0005h 

EQU 0100h 

EQU 0C000h 

EQU 0FFh 

EQU 0F4h 

EQU 6100h 



;CP/M bank chuck storage 
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ORG TPA 



START: 



DI 

PUSH A IT 
LD HL, START2 
LD DE,6000h 
LD BC , FINISH - START 2 



LDIR 

JP 6000h 



; for safety 

;and save register & flags 
; start of this program 
;new location for program 
; length of program 
; relocate this program 
;goto relocated program 



START2 : 



IN A, (HORZSELECT) 
LD (HORZSTASH) ,A 
LD A, 3Fh 

OUT (HORZSELECT) , A 

LD HL,BANK6 

LD DE.TPA 

LD BC , 4000h 

LDIR 

LD A, (HORZSTASH) 
OUT (HORZSELECT) , A 



;read horz select register 
;and save register contents 
; select 6 & 7 for home bank 
; enable ohunks 6 & 7 



•start of block to move 



| s tart of destination block 
; length of chunks 6 & 7 



; do move 



; retrieve register contents 
; restore CP/M chunks 
; restore CP/M flags 
;ok to interrupt 
; return to CP/M 
;plaoe marker for assembler 



FINISH : 



POP AF 
EI 

JP CPM 
NOP 



END 




I'm not sure at this point what w< 
Send me some ideas or you may be sorry 



Editor's comments: Syd, this is to you, but also to other FD-68 experts. O.K., you ask 
for itl Here are some comments to help you plan for future columns. The Aerco FD-68 
users have suffered from a lack of information support. You are the singular exception. 
The FD-68 is a powerful DOS but lacking in Extensions for common usage. For one, the 
.CHR extension is sorely missed for every day computing. Also, the inability to change 
the Disk selection pointer locks us into our existing disk configuration unless the 
EPROM is sent for re-programming (and dont hold your breath while waiting). Update 
believes that help is needed in the form of RAM based utilities to open up the 'missing 
extensions' to broaden the FD-68 DOS capabilities. We also need a quick source for 
EPROM re-programming, and a way to change our drive configurations and use BASIC to 
access the new config. 

Update has broken ground to point out a serious danger of operating the FD-68 powered 
from the TS-2068. Others knew about this danger but kept quiet about it. Aerco once 
recommended a method of using the disk drive power supply to power the FD-68, so they 
recognized the problem early on. Their solution was not a solution because of the noise 
of disk switching power supplies. We suspect that many FD-68 users have left us because 
of TS-6068 destruction caused by the overloaded power supply when the FD-68 was in use. 
Dan Elliott has an inexpensive fix for this but he says that only a few have sent their 
FD-68' s for the external power mod. 

For some un-explained reason the Aerco FD-68 users have not benefited from an on-going 
publication of common use utilities as have other DOS system users. LKDOS users and 
Oliger DOS users have a plethora of disk utilities to load into RAM to do many tasks. 
These are in public domain, given by authors apart from the DOS manufacturer. Most of 
the FD-68 utilities that are available are proprietary and those of us who have them and 
could provide expansions are reluctant to do so because of infringement. The Aerco 
Printer Code has undergone several improvements which are not widely known about. The 
use of FD-68 extra memory is a dark and mysterous subject. Many FD-68 users have from 
64K to 256K of extra RAM but few have ever used the extra RAM because of lack of 
programming information. So there is plenty to write about if one assumes (correctly) 
that most FD-68 users need useful utilities and help in the form of programming 
tutorials that are at the beginner and intermediate levels. 

Update has had a continuing appeal for articles on the FD-68. Syd Wyncoop is the only 
FD-68 writer to come forth. We appreciate! JBJ- 
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A O.U AUTO-LOADER 
Bob Hartung, 2416 N. Co. Line Rd., Huntertown, IN 46748 

By using the storage device for conversion of directory 
information to data which can be loaded bacK into array 
cWO, this adaptation of the CAT-PRINT routine provides 
a menu-loader similar to the one for the TS2068 SAFE 005 
user. It is written for MOV! as the primary source drive 
but may be adapted for use on MDV2 and probably a DOS as 
well, although I do not have one to test that out. 

On initialization, the routine stops with a WHEN ERRor 
prompt to create catalog-data file caLdat. Once this 
file exists, when booted up the routine will run through 
a menu of all files in caLdat by keying any character 
except (upper case) N. If N is Keyed from the menu, 
caLdat will be updated with the current directory on 
the drive selected. 

MENULOAD 

IB PAPER 8: INK 7i CLS: PAPER 118,7: INK HB,8: CLS KB: dr 
ive*='radvL' 

28 WHEN ERRor : PRINT IB j 'RUN 248 to save DIR, then RUN' 

: STOP: END WHEN 

38 DIM ctt(188,l2) 

48 OPENJN R7,ndvl_caLdat 

58 INPUT H7,line$! PRINT 'CATALOG-' | I ine* 

68 FOR x = 8 TO 588 

78 INPUT I7,ctt(x) 

88 IF E0F(I7): LET FI=xi GO TO 188: END IF 
n END FOR x 
188 CLOSE 17 

118 PRINT KBW'Key any CHR to scroll ENTER to load'YN f 
or NEW CATALOG' 
128 A*=' 

138 LET F=l: x=7s Y=2: C=1NT(FI/18): D1F=1NT ((FI/IB-O* 
I8*.4): row=li lop=17 

148 LET 0*='p' : 1T=1: IF lop)=Fl THEN Iop=FI: GO TO 168: 
END IF 

158 FOR 1=1 TO C: FOR M=8 TO lop: AT row<M,7: PRINT A*i 
AT row»H,B: PRINT cW(lT)s LET IT=1T*I: NEXT M: GO SUB 1 
?8: NEXT I: FOR 1=1 TO 1?: AT 1,7: PRINT All NEXT h IF 
NOT 01 F THEN GO TO 148 

168 IF F DM m M "W MMi ftT rewtfV> WWH1 All ffl 
romM.B: PRINT ct$(lT)i LET lT=IT+h NEXT M: IF lop)=Fl 
THEN F=8: END IF : END IF 

178 IF NOT F THEN 1T=FH1: END IF 

188 GO SUB 1?B» GO TO 148 

l?B FOR L=B TO M: AT rw*L,7» PRINT ')': FOR K=l TO 5: N 
EXT K: IF MO" THEN FOR K=l TO 188: NEXT K: LET 0$=": 
END IF 

288 LET A=C0DE(INKEYI): IF A=8 THEN LET 0*='p': GO TO 28 
8: END IF 

218 IF A=78 THEN GO SUB 248: GO TO 18 

228 IF A=18 THEN GO TO 238* ELSE AT row+L,7: PRINT ' 's 

NEXT L: RETurn : END IF 

238 LET P0S=1T*L-N-1 : drive$=dr ivel A ctKPQS): LRUN dri 
ve$ 

248 CLS IB: INPUT IB; 'CATALOG drive no. 'jdrive 
258 drive*='mdv' & drive it '_' 

268 DELETE drive* & 'caLdat': OPErLNEW 87, drive* 4 'cat 
_dat' 

278 DIR I7,drive*i CLOSE 17 
288 RETurn 

298 DEFine PROCedure sv: SAVE mdvLBOOT: END DEFine sv 
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Z88 BATTERY REPLACEMENT 

A few days ago I decided to do some work on a 
little Z88 program that I started over a month 
ago. I had used "QL Link" to store the 
un-finished Z88 program in a QL Disk. I opened 
the filing cabinet drawer and removed the Z88 (It 
was filed under Z.). I punched the Shift Keys to 
bring the Z88 on line, but alas, the Z88 was as 
dead as a duck. I thought, "No wonder. Its been 
a month since I've used it". Rummaging around, I 
found a 6 pack of fresh AA Cell Batteries. I 
never can come out even on pre-packaged things, 
can you? I flipped the dead Z88 over to its 
un-dignified position and removed the dead batts. 

About that time the tea kettle whistled, so I 
made a cupa instant coffee and returned to 
install the new batteries. With my stubby 
fingers thats kinda like giving an emema to a 
mouse. A bit of fumbling got them in there. 

Now the Z88 was back to its happy position, 
and I touch the two shift keys. Would you 
believe that up popped to screen the last data 
file that I had been working on a month ago? 
Well, it didl 

I said out loud, "Well hello Z88, I t tough t 
you were dead. You and ole Rip Van Wrinkle must 
be related". Maybe I imagined it, but I'll swear 
that I heard a chirp in reply. And, the Wife 
said, "Talking to yourself again, eh"? 

A file cabinet makes a nice place to stash the 
Z88 in a letter size folder, better than a drawer 
where one may stuff something on top of it. 

I loaded the Z88 program to the QL memory from 
disk and then to the Z88 with QL Link. I still 
haven't finished the program, but I'll tell you 
what it is. Its the "Dbase-1" program given in 
this issue. But there is a problem. I dont know 
how to install and call the Machine Language 
utilities yet with the Z88. Can anyone help? 

Actually that will just be an exercise in 
programming, as the Z88 "Diary" does almost 
everything that Dbase-1 does, and more. — BJ 



S.L.S. Again (Sudden Lock -up Syndrome) 

Since getting the two Update QLs equipped with 
the external power supply by Dan Elliott about 4 
months ago S.L.S. hadn't grabbed me - until 
yesterday. I was typing away on a Quill text and 
my right 4th pinkie split a hit of the K and L 
keys. Apparantly the QL (or Quill) intrepeted this 
as Omega and then "Fritz", and both being diehard 
Republicans, Fritz was turned to "Pffut, we aint 
workin fer no Democrat", and both quit on the spot. 
No coaxing or apology would un-freeze the screen. 
This leads me to believe that either the QL and its 
keyboard read, or the QUILL character read, one or 
the other, has a bug in thar that pops up and sez, 
"I warn't programmed to read split key hits and 
whut you done is greek to me". But one lock up in 
4 months isn't enough to fuss over. RESET works. 
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Bill Cable : RR 2 Box 92 : Cornish, HH 03745 : 603 675 2218 

In the last Cable Column (April 89) I discussed how to program in 
ARCHIVE including a guide to using the built-in ARCHIVE editor. Please 
keep that article handy when entering the ARCHIVE programs described in 
this column. I have heard from several UPDATE readers who are indeed 
trying ARCHIVE for the first time. If anyone gets stumped feel free to 
send me a SASE with a brief description of your problem and I will try 
to help you. I will also try to cover problems or requests of general 
interest in this column, 



ARCHIVE features 

ARCHIVE has a language and like SUPERBASIC, you either have to write 
your own ARCHIVE programs or use programs others have written to 
benefit from its features. Why use ARCHIVE instead of SUPERBASIC? The 
ARCHIVE language is designed to handle information in both string and 
numeric form. It has powerful built in commands that are difficult to 
duplicate with SUPERBASIC. If you have applications that involve 
information handling such as address lists, financial records, index 
files of any sort you may find ARCHIVE to be the best language 
available on the QL for your application. 

Besides its excellent language and built in editor it has an 
interesting feature that makes it stand apart from most databases. It 
stores its records exactly as they are instead of making them all the 
same length. This makes it very efficient in storing data. Most 
databases require you to specify the length of each field that makes up 
a record. This means you have to allow for the longest expected value. 
If you allow 20 characters for the city field in an address database 
then each record has 20 characters set aside for city name. If the 
average city length is 10 then half the space is wasted and if a city 
comes up that is 22 characters long it has to be truncated. ARCHIVE on 
the other hand, uses only the amount of space each city takes up. This 
expains why you can get 600 addresses with a complex 25 field address 
database on one cartridge. If all those fields had to have space 
alloted to them even if they were not used it would take 3 cartridges 
to hold them. This makes it possible to design your databases with 
enough fields to cover all situations needed. 

The down side of using flexible length records is that you don't know 
where your records are unless you have a pointer list to tell you where 
each one is. That is why ARCHIVE must have its opened files closed 
properly. If that is not done the pointer list may be incomplete and 
you will get the message 'wrong file type' when you try to access it. 
Its a matter of opinion whether having the flexible length records is 
worth the vulnerability. I would like ARCHIVE even if it didn't have 
this unique feature. Careful backing up takes care of most of the 
vulnerability. People who get complacent about their software/hardware 
and don' t make backups are taking great risks no matter what machine 
they have and what software they use. 

FILER - A progam for file handling in ARCHIVE 

FILER is the name of a group of ARCHIVE procedures listed below which 
should help you with your ARCHIVE file tasks. It allows for easy 
copying, deleting, formatting from within ARCHIVE. Always be careful 
when formatting because anything already on what you format will be 
lost. Use FILER to back up your databases by making copies. 

There is a lot of detail packed into the code that may not be clear at 
first. Notice how the 'error' statement is used to check for possible 
errors and protect the procedures from being halted by errors. I make 
use of the ARCHIVE screen reversing character , chr (26 ) . Whenever you 
print chr (26) the screen will reverse ink, paper until you print chr (26) 
again. The only global variable is ansS which I use to pass values back 
to calling procedures. The getkeyO function allows for single key 
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input much of the time. A lot of screen positioning is used to give the 
appearance of windows. The procedures box and get_device may be useful 
in your own programs. Box creates a cleared area on the screen in 
normal or reverse color. Get_device will prompt somewhere on the screen 
for a device and return its name in ansS. Look up unfamiliar commands 
and functions in your QL manual. 

Type in FILER by starting ARCHIVE and entering the editor. After typing 
it in save it. You can run it by typing : run {} filer* <EBTER> 
where 0=device or typing f iler<EHTER> if it is already loaded. You can 
jump to FILER from a run statement in your own program and then jump 
back to your program from FILER. You can merge it with your own 
program. It should make backing up from within ARCHIVE easy for you. 
You must close your database before copying it. If you want to copy a 
file using the same name you can just press enter when prompted for the 
target name. In the listing below the bold is for emphasis. 



proc box; linel, coll, line2, col2, reverse 

local j 

if reverse: print chr<26): endif : let j=linel 

while j<line2 + l: print at J.coll; tab col2; : let j=j + l: endwhile 

if reverse: print chr<26): endif 

endproc 
proc docopy ; IS, j S 

print at 20 , 52 ; " Cdoi ng copy now)";: backup iS as JS 

endproc 
proc dodelete; i* 

print at 23 , 52 ; " <de lete ing "+1S;: kill IS 

endproc 
proc do_f ormat ; IS 

print at 22 , 52 ; " (f ormatt ing "+iS+")";: format IS 

endproc 
proc do_run;lS,JS 

print at 22, 52; " {pr" +J S + " run "+i$+")"{ 

if JS="g": run i$: else : run object IS: endif 

endproc 
proc err_check; 1 , c, m* 

lf p"n™t ) l,c ! »Brr = ";errnum<>; at l + l.o|»»|» failed. Press <ENTER>" 

input raS; : endif 
endproc 



proc filer 

local sd$ , tdS , tdS , t f $ , c$ , IS , j $ 

mode 0: while 1 , , , _„ 

els : print at 0,29;,"F 1 L E R" ; : p_26: get_device ; 2 , 20 , " Which Device? 
U sm*?*" " > ' Qls * c^tWA •> <a*tdtf s let sd$=aus&i let cA=»'?" 

pr i nt at 12,22; w {directory of " + sdS +" ) " ; 
while c$<>"e":p 26: dir sd$ : p_26 

box; 13,50,24,80, 0: print at 13, 51; "FILER MENU FOR "i upper <sdS ) ; 

print at 14,53;"c copy a file" 

print at 15,53;"d delete a file" 

print at 16,53;"g run a prg program " 

print at 17,53;"o run a pro program" 

print at 18,53;"f format medium in ";sdS; 

print at 19,53;"e exit FILER MENU" 

print at 20, 51 ; "Press key : ";:p_26: print " "; 

let cS=lower (getkey <) ) : print cS;" " ; : p_26 ' 

if c S="c" : get_device; 13, 50, "Copy .from "+sdS+" to where?": let tdS=ansS 
let sfS="?": while sf$<>"" and tdSO"" 

if sdS=tdS: p_26: dir sdS:p_26: endif : box; 13 , 50 , 23 , 80 , 0 
print at 13, 58; "FILE COPY"; 

print at 14,56;sdS;" to " ; tdS; at 16, 52; "copy ";sdS; 
input sfS: if sfSO"": print at 18,52;"To ";tdS;: input tfS; 
if sdSOtdJ and tfS="": let tfS=sfS: print tfS: endif 
if tf SO"": error do copy ; sdS+sf S , tdS + t f $ : err_check; 22 , 51 , " Copy 
endif : endif i endwhile : endif 
if cS="d" 
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print at 22 , 52 ; *' De 1 ete : ";sd*;: input sf$ 

if sf$<>"": error do_de le te ; sdS+sf $ : endif : endif 

if c&="g" or c$="o" 

print at 21,52;"Run : ";sd&;: input sfS: if sf$<>"" 

error do_run; sd$+sf $ , cS : er r_check; 23 , 52 , " Run" : endif : end 

if c$="f" 

print at 20 , 51 ;" Format ";sdS;" - y/n : ";: input iS; : if lov, 
input at 21, 52; "Give a name : ";i$; 

if iSO"": error do_format ; sdS+iS : err_check; 23 , 51 ," Format" 
endif : endif : end while :p_26: end while 

endproc 



print at 1 , c+8; "DEVICE LIST" 



raml_ 
Other" 



proc get device ; 1 , c , m* 

local iS.jS 

box; 1, c, 1+11, c+30, 0: 

print at 1+2, c+3; "1. 

print at 1+4, c+3; "3. 

print at 1+7, c + 1 ; raS ; 

while ans$="" 

print at l+8,c;rept(" ",30); 

print at 1+8 , c+3 ;" Press key CI to 81 

let i$=getkey(>: print IS;" " ; : p_26 



iBdv 1 _ 5 . 

flpl_ 7. 
: let ans$="" 



at 1+3, c+3; "2. 
at 1+5, c+3; "4. 



radv2_ 
f lp2_ 



6. 
8. 



rain2_ 
Done" 



; : p_26 : print 



if 



i.£=" 1" 
2" 



if ifc = 

if iS= 

if 1$ = ' 

if iS= 



let anst=" mdvl_" : 
let ansS="radv2_" : 
let ans$="f lp2_" : 
let ansS=" ram2 _" : 
input at 1+9, c+2; 
if j$<5>="_" 



endif 
endif 
endif 
endif 

'Device name 



: if i*="3" 
: if i$="5" 
: • if iS="8" 



let ansS="flpl_ 
let ansS="raml 



endif 
endif 



return : endif 



let ans$=j$: endif 



if len<j$>=5: 
if ans$="" 

input at 1+10, c+2; "Not a device [<ENTER>] 
box; 1+9, c, 1+10, c+30, 0: endif : endif 
endwhi le 
endproc 
proc p 26 

print chr (26) ; 
endproc 
proc start 
filer 
endproc 
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Bill Cable : RR 2 Box 92 : Cornish, HU 03745 : 603 675 2218 
Business and Educational Software for the QL 

DBTutor : An ARCHIVE based learning shell. This program allows users to 
set up databases to learn any subjects they wish. It works well with 
any topic that can be typed in. Many interesting drills can be done to 
help learn the material including : flashcard, type in answer, reverse 
question and answer, score keeping, print missed questions, selected by 
subject, keys, or word occurence. Parents can set up drills for their 
children. Students can use it to learn languages or any school subject. 
QL users can use it to help learn computer related topics. The material 
can also be printed out in test or complete form. Long after the 
material has been entered it can. be quickly reviewed. DBTutor uses the 
power of ARCHIVE without requiring the user to know anything about 
ARCHIVE. It is all menu driven. Comes with a detailed 25 page manual 
and many sample databases. I have a version that works very well on 
unexpanded QLs also. Order directy or send SASE for a list of other 
software available. (5 1/4 DSDD disk $24.95 or 2 MDV $28.95) 
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PLOTTING the GRAPH Of an 
EQUATION 



The T/S 2063 is an ideal com- 
puter for plotting graphs of a l 
gebraic or trigonometric equa- 
tions, for display purp o s e s . 
Although its number of pixels 
available f d r high-resolution 
art work is a little less than 
the number in much more expen- 
sive computers, the Timex great 
ly offsets this minor deficien- 
cy for several i mp o r t a n t rea- 
sons, une is because the T/S 
Plots in the first quadrant, 
which means that the origin is 
in the lower, left-hand corner 
making X me a s u r erne n t s p o s i t i v e 
t o the right and Y me a s u r erne n t s 
positive up. This agrees with 
well-established . mathematical 
practice. The Apple lie, a 
widely distributed computer in 
o u r s c h o o i s . d r aws in an a w k - 
ward fourth quadrant and rneas- 
u r e s V v a lues p o s i t i v e in the 
down direction. Another reason 
is the capability of the Timex 
to be able to mix h i g h - r e s o l u - 
t i o n graphics with text in an y 
arrangement on the screen and 
in any order within a program. 
The Apple,, on the other hand, 
provides only a four-line win- 
dow at the bottom of the screen 
for text. This hinders the 
need to place text in or a r o u n d 
the drawing itself. 

At this point it might be ap- 
propriate to admit to readers 
that some knowledge of geometry 
would be helpful in digesting 
this material., but it is not 
absolutely necessary. Most of 
this discussion will o n l y 
involve simple arithmetic and 
measu remen t . 

Perhaps the best way to ex- 
Plain how to plot a graph on 
the T/S computer is to go thru 
the usual steps one encounters 
using a sample equation. For 
this purpose consider the equa- 
tion Ysi/X. 

Starting with an eye inspec- 
tion, one can readily see that 
Y is negative for negative val- 
ues of X , and that Y is posi- 
tive for all positive values of 
X. Also note that Y becomes in- 
finite when X equals zero. Thus 
the graph of this equation will 
lie in the first and third quad- 
rants and its presentation will 
be enhanced by having its prin- 
cipal X- and Y-axes centered in 
the working area of the screen. 
So the first step is to relo- 
cate them from their left-hand 
and bottom positions. 



For reasons which will soon 
become apparent, the distance 
of translation for these axes 
will be expressed in units- of 
rows and /or columns, converted 
to the corresponding number of 
Pixels, there being 8 pixels in 
the width of one row or one col- 
umn. Thus the shift to the 
right for the Y-axis will be 
called X0 and will have a value 
in this example of 16 col umn s 
times S pixels per column. The 
upward shift of the X-axis will 
be called Y0 and have a value 
of 11 r ows t i me s 3 pi x els per 
row . 

our next concern is scale. Ue 
have to enlarge the ordi nates 
(Y values) and the abscissa (X 
values) of the curve to see it 
when plotted. otherwise the 
curve would appear as nothing 
more than a few smudges around 
the intersection of the relocat- 
ed axes. This part takes some 
practice. Errors in judgement, 
however, are easy to correct 
using the procedure recommended 
herein. In this example we 
will arbitrarily let 50 pixels 
r e p r e s en t 1 unit of X , t h e hor- 
izontal scale, and 10 pixels to 
represent 1 unit of Y , the vert- 
ical scale. It works out best 
to use mu 1 1 i p les o f ten , i.e., 
10, 20, 30, etc. Ue will refer 
to these scale factors as SX 
and SY in the computer program 
corning up. 

The program starts off with 
the initial lines devoted to 
putting a frame around the work- 
ing area of the screen, plot- 
ting the relocated axes, and 
defining the arbitrary values 
previously discussed. Then a 
single FOR -NEXT loop is used to 
draw the graph itself. You may 
save yourself time by omitting 
the REM stat erne n t s i n y o u r own 
keyboard entry. $ee A7l p% 



Profile of a Subscriber: Can you top this? 
Fredrich Hill, Woburn, Mass. is a TS-2068 user 
and subscriber. Fred was born in 1904, before 
more than 5% of the homes in America had 
Electricity, before the Model -T Ford, before 
Radio in 99% of homes, before refrigerators, 
before vacuum cleaners, before bikinis, before 
'almost anything' that we take for granted 
today. Only a few principle streets in Boston 
were paved in 1904, those with bricks. Every 
city had livery stables and the down-town 
streets had center divides for parking horse and 
buggys. The principle job of city sanitation 
was the never ending accumulation of horse 
manure. Rains sometime exacerbated the problem. 
Two Wright brothers were preparing a contraption 
made of bicycle parts to attempt to fly, which 
most thought to be riciculuous. Quite a few 
States had not yet become States. Now Fredrich 
is a TS-2068 Computer Enthusiast. Salute! 
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4 LET X0=8*16: LET Y0=8*ll 

5 BORDER 6: REM ** DEFINES 

WORKING AREA 
15 PLOT 5,Y0: DRAU 245,0 
20 PLOT X0,5: DRRU 0,165 
30 LET X5=50: LET YS=10 

40 REM ** PLOTTING THE GRAPH 
100 FOR X=-2 TO +2 STEP 0.1: 
REM ** ADJUST STEP LATER IF 
NECESSARY 
110 LET Y=l/X: REM ** ORIGINAL 

EQUATION 
120 LET XX=XS*X+X0 
ISO LET YY=YS*Y+Y0 

140 IF X>-.£ AND X<+.2 THEN HEX 
T X: REM ** AUOID DIUISION BY 0 
ISO PLOT XX, YY: REM ** PLOT 

ADJUSTED UALUES 

160 NEXT X 



2 REM ** GRAPH OF Y=l/X 

3 REM ** "C-59fl" , 9-22-87 

4 LET X0=8*16: LET Y0=8*ll 

5 BORDER 6: REM ** DEFINES 

WORKING AREA 
15 PLOT 5,Y0: DRAW 245,0 
£0 PLOT X0,5: DRAU 0,165 
30 LET XS=50: LET YS=10 

40 REM ** PLOTTING THE GRAPH 
100 FOR X=-2 TO +2 STEP 0.01: 
REM ** ADJUST STEP LATER IF 

NECESSARY 
110 LET Y=l/X: REM ** ORIGINAL 

EQUATION 
120 LET XX=XS*X+X0 
130 LET YY=YS*Y+Y0 

140 IF X>-.2 AND X<+.2 THEN HEX 
T X: REM ** AUOID DIUI5I0N BY 0 
150 PLOT XX, YY: REM ** PLOT 

ADJU5TED UALUES 

160 NEXT X 

170 REM ** FRAME THE DRAWING 
180 PLOT 0,0: DRAU 255,0: DRAU 
0,175: DRAW -255,0: DRAW 0,-175 

190 REM ** HORIZ. HASH MARKS 

200 FOR N=X0-100 TO X0+100 STEP 
10 

210 PLOT N.Y0 + 1: PLOT N..Y0 + 2 

220 NEXT N 

290 REM ** UERT. HASH MARKS 

300 FOR N=Y0-60 TO Y0+60 STEP 1 

0 

310 PLOT X0+1,N: PLOT X0+2,N 

320 NEXT N 

390 REM ** SCALE UALUES & TEXT 

400 PRINT AT 9,2: " - 2" .: TAB 8;"-l 

";at 9,29; "X"; AT 1 1 , 15 ; " 0 " ; AT -11 
,22.; "1";TAB 28; "2" 

410 PRINT AT 1 , 15; "Y" ,' AT 4,15;" 
5" ," AT 17,17; "-5" 

420 PRINT AT 20 , 17; "GRAPH OF Y = 



After running this p 
you can see that tue as 
reasonably aood values 
scale, but that the cu 
more plotted points fo 
stand out better . Do 
by changing the STEP v 
line 100 to a smaller 
only other worK requir 
pule the picture is t 
* c a I e values to the ax 
that one can read corr 
X and Y values off the 
and a title. All of t 
done by the addition o 
170 to 420. Again, yo 
sr.ip the REM statement 
copy to lessen the wor 
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A Fun Contest 



Kllroy is the legendary sneaky Pete of World War II. 
"Kllroy was here" could be seen everywhere In little signs 
all over the USA, Canada, Europe and Asia. It Is said that 
when Gen. McArthur stepped foot on Japan for the first time 
he saw the note "Kllroy was here". No one ever saw Kllroy 
In the present tense. He was always there "before". Hitler 
thought that Kllroy was a master Spy and had a general order 
out for his capture. Talk about computer viruses I Kllroy 
weaseled his way Into the prges of Update. He was there and 
gone as usual. Find where he was Just for the fun of It. 
The first letter received that tells" where Kllroy was" will 
receive honorable mention In the next Issue. 
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GRAPH OF Y=l/X 



Note that the graph is self- 
contained and that it hdS all 
of the information needed to 
stand alone. 

in some future article we 
will explore how this concept 
of qraph drawing can be applied 
to Bther mathematical curves be 
sides the rectangular hyperbola 
(Ysl/X) which was used here. 
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QL Configurations ? ? ? ? 

This blurb is intended to provide provocation to 
tlose wto can answer some questions and enlighten 
us on tie various Tool Kits Cor the Sinclar QL. 

References are continually made to this tool kit or 
that ROM or tliat VERSION of tlie Sinclair QL. Most 
are in tire dark as to what each tool kit provides. 
Now I know that this is asking a lot, but maybe 
someone will do it. Will someone please do an 
article for the Update readers that lists the 
various configurations oE bha QL and its various 
Tool Kits, with a brief on what the tool kits do? 
To start, I will duplicate the i^laHsation 
screens of Update 's two QL computers (below). This 
stould put some to scratching tleir heads as both 
computers have l«d different 'Mlos pi tal operations 
by tie leading QL Dock tor in North America (lorn 
SUl. When booking at tie ^^t^lf'^rXs 
remember that thsrs are no plug-in cartridges 
installed. These are tlie bare computer's repoLt 
as tie FJ. screen 



QL System lis 

Creative Code Works 
Serial 39306 e 1989 

Miracle Systems 

Trump Card 
Care/Jump 



Speed Screen Chip 
Simon N. Goodwin 

VI. 20 e 1904 
896K RAM 
Toolkit V2.ll e 1985 



Now tie next "pair" of screens are from Update s 
otter QL. This spare QL has a slide switch 
installed on tie rear deck for selection off tool 
kits in ROM. The screens will be given Cor each 
position of tie slide switch. 



QL Computer 12, slide switch Left Screen i 
Miracle Systems Tool Kit V2.12 e 1905 

MVracVe % WM 

Ttump Card 096K RAM 

Care/QJUNP Tool Kit V2, 11 e 1905 



QL Computer 12, slide switch Right Screen: 

Miracle Systems VI. 20 e 190-1 

Trump Card 096K RAM 

Care/QOUMP Toolkit V2. 11 e 19G5 



Tie idea of laving two QL Computers with such 
variety of tool kits was to provide toe 
"Networking" o£ two QL computers so that all Tool 
Kli- capabilities would be available to both 
computerf as tley are used in a "two c^puter 
JULY 1989 



network". (Tlie EPROM for ROM replacement does not 
provide sufficient space to include Speed Screen 
and all Tools in one set.); 



» Some Quirks are not Quirks, but Perks << 

As above, there are many outstanding capabilities 
of the QL that are gnobilis only wlen adorned with 
literary recognigion, upon which time previous 
obscurity of comment turns to profound eplstlles 
for posterity. Since tlere are only some 2000 or 
fewer QL users in North America, and our experts 
number about tie sane as tie population of 
extrovert aardvarks, we must politely plead Cor 
all bashful but knowledgable QL users to come out 
of tie closet and share their knowledge. I to 
rewards will be their elevation to guru status ato 
profound appreciation. Some worthy subjects for 
enlightenment ares 

NETWORKING! The most widely acclaimed capabi 11 ty 
of tie QL (in early publicity) is its ability to 
network up to 64 computers tooked togetler. Most 
users are not interested in such a gang off QL s 
fighting over a printer or a disk drive, but the 
details of how to took up "just two", and tow to go 
about doing intelligent coordination, would be very 
interesting. Iff you've done it tell us tow we can 
do it. 

TRANSFERRING DATA AND PROGRAMS BETWEEN COMPUflSRSi 

We need to know tow to affect a direct link up 
between two computers, and tie computer comnands to 
use to transfer. And, tow about someone telling us 
how to get a data file and a program listing from 
our TS-2060 to our QL? Some have solved that 
problem by installing two phone lines and using 
modems on both computers, but thats about like 
moving tie house to stretch a clothes line. 

CAPTURING Files from DISK to Disassemble! 

How does one List an EXEC file to paper to 
dlsasseiTtole and examine? 

How does one List Non-PSICN Files, disk to paper? 

All off the above are questions from subscribers. 
Others are asking for an article about String 
Concatenations and tie use of Ctoracter Arrays, 
Xhtaing somewhat different than other computers. 

»> Current Inputs <« 

John Guergens gives us some more Quirks and Tips as 
well. Methinks that Join lias become the 
eontinuator off cognizables which are J*™^ 
rarified but occasionally have stuplifying 
terminations; himself being a cognoscente rather 
than a neophyte. John is a steady contributor and 
a QL consummate, we are grateful. Questions beget 
answers which procreate more questions, 
adinfinitum. So the title "QL QUIRKS is changed 
to "QL PERKS and QUIRKS", more appropriate and 
less negative dont you think? 
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April 28, 1909 



John E. Juergens 
18 Oryce Canyon Way 
PaciMca, CA 91044 



Otll Jones 

c/o UPDATE Magazine 
1317 Stratford Avenue 
Panama Cfty, FL 32404 



Your April Issue arrived yesterday. As April proceeded past the 15th, began to /H4/ 
think you forgot about out-putting UPDATE for this quarter. Bffi 1 

Re: Your "OPINION" , p. 11: It's been so long since I have experienced a qLWP/QUILL "V- 
SAVE to the default data device at about 2-1/2 to 3 pages of memorable prose ' not 

since Curry Computer convinced me early on that a 512K expansion board was the 'P £> A y f 

solution to that and many other problems - that my recol lection is a bit hazy. I ' p (C 

However, I am certain that our version of QLWP/QUILL did not SAVE without notice. p*r^ ' 

I suspect that you, like myself on more than one occasion, had your head down ffyA&k- 
pounding away at the keyboard and didn't notice the warning posted on the screen. ^ 
My further recollection 1s that unless you Immediately pressed the "secret" key r / 

mentioned 1n the warning any other, such as simply continuing to type away, would jJ^&Sfc-* 
activate the SAVE to the default data device under the f11e_name def_tmp; in your 
case, MOV 2. 

The situation seems to be that there are few choices at that point. There is no 
further RAM available to store additional text so one either manual 1y does a SAVE, 
Zap's what's been done and continues on a clean page, so to speak, but postpones the 
bigger, inevitable problem of how to print out the sucker in one acceptable whole. 
Or let QLWP/QUILL. handle the problem for you in a much better fashion than I have 
ever been able to come up with. 

Personally, I think the QLWP/QUILL solution,, Is • pretty elegant: , As you continue to 
add text, 1t automatically updates the document to<def£tmp on the data default 
device. This allows either a print out. of the whole document, automatically ex- 
tracting text from def tmp when needed; or- an F3,'SAV£ under the f11e_name and de- 
vice of your choice. The F3, SAVE, again automatically, Incorporates what was In 
def tmp and then deletes def tmp' from the default device cartridge/disk. A subse- 
quent LOAD of the P3, SAVEd fTle, again automatical ly, .creates a def tmp file on the 
default device and SAVEs thereto the portion which won't 'fit Into qCWP/QUILL allow- 
ing you to continue to add-to and finally PRINT the 'whole shebang without worry 
about tying pages together. 

If one had only the standard 128K of RAM and an empty cartridge In the data default 
device (to catch the def_tmps) one effectively should have, at 5 sectors per page 
and 200 sectors per cartridge, about 40 typed pages, available 1f the F3, SAVE Is 
done to an empty cartridge In the non-defaul t drive.". Using a DSQD disk drive (LRUN 
Ciwifi bas to change System, Data and Help defaul t' devices ) should make 280^ pages 
available. 

The disk scenario 1s probably sufficient for a novelette or doctoral dissertation 
(at least for the appendides) and, unlike what happened to someone I heard about 
who was doing his dissertation on a hard disk and was about finished when the In- 



CA 



evil table crash occurred"- "with ' nothing retrievable by the bye - the QL user has ^f<i\j^ 
hls/her's SAVEd to a reasonably secure medium. /l\)0^ 

Ever since the Z86 was introduced I have. read each advertisement and comment with 
qreat curiosity as to how It works and what 1t will do better than Its predecessors. *• 
Your exposition, p. 6, et seq, told me more about the Z88 than all of the others 
combined. So... some questions which I hope will generate ' responses of general 



interest. 



P. 6, left, bottom col: "...on bottom screen, "End of Text.": If it didn't • 
mean you were out of memory, what did It mean? You left me hanging. m& I 00 

With the 128K RAMcard in place does it still give you an "End of Text" report diJ« . 

at the point you were when 1t came on or does any RAMcard 1n place automatically ex- c.<, to* 

pand the memory available for text typing?, I guess the question 1s, put another ^ -fkA' 

way, is an installed RAMcard available 'only for' file,- saving, a la a cartridge or A . 

disk or will one automatically make available more appl Icatlon RAM? ' 

If the file SAVEs are automatic upon switching to another application, what 1s ^/a/tif , 

the name of the f1le(s) SAVEd since you (apparently) could not assign one at the nppu.^ei cd 

switching SAVE? Or, 1s one assigned at. the time of entering the appl Ication and ^> 
that becomes the filename under which the automatic SAVE occurs? 

Were you actually able to ,do the column layout found In UPDATE from within y&p . 

PIPEDREAM and print it out as we See 1t? ^ / / 

What are the "portable" uses for It that you have found or can envision? '"^^^ ^ ^ 

As the Z80's in/out is serial, how fast are the microdrlve or disk tf^M^^ 
up-and-downloads? ^^S/^ Ui fk 2aJ-1)oS> y 
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SAVE of data or programs 
Unless I misunderstand, aren't 



lly only 2 programs, PIPEDREAOM and DIARY, (each of which may contain suf- 
nmnnds/functlons to amount to 4 or so conventionally thought-of-as 



You mentioned that the ZOO " . . .provld(es ) pern 
In EPROM. " What "programs" are there to be SAVEd? 
there really on" 
riclent commands, 

programs?) And, aren't they bul 1 t- ln7 If so, what's to SAVE7 
other, or both, capable of being programmed like QLOO/Archl ve7 

How do you manage to get all of these not Inexpensive purchases past Mrs. J7 

Your comment, "Cambridge must have this Sank Switching scheme perfected for Idiot 
operation.", prompts the following offering of a bit of wisdom attributed to David 
llobb and found In the latest Issue of Astounding, Ana log Science Fiction, Science 



fa S ****** 
~ As o <Wa 



Fact (for such ; 



all mag It sure has a lot of names): 



"for every Idiot-proof system devl 
overcome It." 



sed, a new, Improved Idiot will arise .}<> J AfU^P^Y^ 

Ml fohb,* NO 

for the QL quirks Coluros Is our version of QLWP the only one which causes MOV I to Jc^T < 

grind on and on In an r'3 , SAVE, "overwrite?" (y)es situation? The first SAVE always 

takes a reasonable time. However, the subsequent ones go on Interminably, Hy /^^fL ^fi < 

solution has been to SAVE to ramdlsk and then F3, (0/ther, (F/iles, (D/ackup p 0 Sii*°- 4 

twin file name To HDV2 file name, ENTER, "overwrite?". (y)es which always results 

in e"SAVE"of reasonable t\me~. There's an obvious alternate to this solutions Ouy a 

disk drivel 



Concerning our newly acquired disk drives: Ihey arrived and worked well except for £ c e 

a quirk: FI.P 2 drive will display a "not found" error report when loaded with a f 

disk It did not format and excluslvfily'wrlte to. A FLP2 disk may be read by FlP l, , jL'^j 

be returned to FLP 2 and honored. One non-FLP 2 wrUe to a FLP 2 disk and all kin- y^ftA*}™ 
ship disowned - Talk about Copy Protectlonl FLP ~1 , on the. other hand, accepts Its 
own as wo II as one written to by FLP 2. • 



Id not assign a cause and suggested. I„ r» 
drive Is, It 9 



When apprised of the situation the vendor 
return the dr lv_e and Interface for checklntj-ou 

Surprlilng, to me at least, was the 1 discovery that' fast as a floppy 
takes longer to got a disk proqram up and running than mdvloadlng a cartridge to * 
ram disk via QfLash on Eprom and executing from ram. Mdvloadlng provides a bonus of 
loading all of our prlnterdats to RAMn allowing near-lnstaneous change-over to ac- 
comodate various printing devices. 

Also, file copying, even with the Cumann wcopy (set of) commnnd(s), Is noticeably 
Oowor than the QfLash fbackup command to an MOV, If one Is not constrained by the 
I00K/200 sector limit of a cartridge. However, beyond the two Instances mentioned, 
It Is disk ahead of MDV by a wide margin In tinns of time consumed and sector avail- 
ability. 

While In SuperOasIc the combination of the qfLash ramdlsk and command set coupled 
with the Cumana wcopy and other commands uncovered by FLP EXT 1s simply extra- 
ordinary for the occasionally necessary dog-work of moving disk files around, lining 
them up In a particular order, deleting and copying.' Although my testing could not 
be considered exhaustive, I've found no conflicts' to date, 

Very truly yours , 



A few twits and quacks in reply 

John ouergera eew&s in again vith an intriguing 
letter Iraving mixed questions and answers. John's 
letters remind me of one "Alexander P. Botts", a 
field representative o£ " Ear tliworm Tractor Co" , and 
his letters to tlie home of£ice. These letters ran 
for years in the (old) Saturday Evening Post. For 
tlose younger tlian these classics, tlie letters 
always described escapades where Alex's ineptitude 
caused lorrendous results, such as a run-away 
goliath tractor in a cranberry bog where the 
competition's was mired down. Tlie tractor mows 
down fences and barns and is chased all over the 
county until it runs out o£ fuel. Botts is fired 
because o£ tlie huge damage expense, always to be 
re-instated with salary increase when a multi 
million sale results from tlie un-intended 
demonstration of tlie superior power o£ the 
ISartliwotm Tractor. In this context I will answer 
some of tlie questions, defer others to tlie home 
office, and ask for. those who have solutions to 
send tliem in. 



1. Tlie Z88's "End o£ Text" message was apparantly 
inserted into the machine to create conversation, 
with tlie premise that the more tlie Z88 is talked 
about the more there will be folks who will take a 
chance and buy one. The report does not stop the 
action, «md if politely ignored one can continue 
operating but with the nagging worry that disaster 
may be enema (nt). So far I haven't realized what 
the report is trying to tell me. (Stupid answers 
always gets corrections). 

2. The "Quill Auto Save" falls into the above 
category of stupid answers. You wouldn't believe 
how many wrote in and told me how good that feature 
is for those having only 128K systems. Me? 1 m 
always swimming around in a bigger pool of memory 
that an IBM AT can tendle and have never run across 
that Perk. 

3 The Z88 AUTO SAVIS: Boy, this is a nice feature I 
Say that you are working on a long term paper or a 
report that takes days to finish. Along comes a 
letter that requires an answer. You shift out of 
Pipe Dream, and tlie existing report that you are 
working on is automatically put into "suspended 
activities" with a title and time date. You then 
answer tlie letter and then pick up wliere you left 
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off with the long report. This takes a second or 
two for those who are proficient with the Z88, but 
a little longer for those of us who have the head 
bone crammed with TS-2068 and Sinclair QL stuff. 

3. The Z88 Cartridge Banks: The Z88 has four banks 
(cartridge slots). Each bank can have 1 megabyte 
of memory. Cartridges are available now for 32K up 
to 51 2K of RAM capacity each. The 1 Mgbt cartridge 
is not yet available. The Z88 keeps the Data in 
RAM permanent even when the Z88 is OFF. Actually 
there is fourth Bank, "the Home Bank", which is the 
built-in memory of the Z88. The home bank is the 
smallest, having a total of 64K of combined ROM and 
RAM. The computer can operate in only one bank at 
a time, which is like saying that your car can only 
roll on one street at a time. But, one can easily 
turn from first street to 52nd Ave., and keep on 
trucking. In this case, the four banks act as 
"side streets" to store data and to operate 
programs. Shifting between banks of memory is via 
keyboard commands or by lines of programming in BBC 
Basic (or machine code programs). This is kinda 
like having three super fast internal Disk Drives 
to call upon to store data and programs. But the 
storage is in Chip Memory. Operating programs can 
have programming that switches to other banks of 
memory to retrieve or save data or, or to execute 
stored programs for their data product output to be 
used in the operating program. The two 'built in 
softwares', Pipedream and Diary, are fixed in ROM 
and always available for use. As these programs 
are operated the data that is created is protected. 
When one shifts OUT of the software to another Z88 
function or program, the existing data is placed 
into "suspended activities" and held under a 'time 
date'. The suspended activities files remain 
protected until they are intentionally deleted, 
much in the same manner as Disk Files remain in a 
diskette until erased. 

4. Getting past, the Family Auditor (Wife): She has 
her on spending vices and we rationalize to each 
other about how we are always saving by our wise 
spending logic. I've already amortized the cost of 
my Z88 system by not drinking beer for five months. 
But once in awhile the plastic money tree sheds its 
fruits and causes a period of drought until the 
next ship arrives. 

5. Z88 PRINTING: Yep. The review in the April 
issue was printed with the Z88 and the daisy wheel 
(Centronics parallel) printer that I normally use 
with the QL. The connection was via the Z88 
Parallel interface cable to the printer, exactly 
the same set-up as used with the QL. The Z88's 
printer driver program is in ROM, needing no extra 
software, and is set up via menu for different 
printer requirements. This is similiar to th3 
'configure' program for the QL's PSION software 
group. 

6. Your disk drive problem indicates that the read 
write head is a bit out of alignment. The symptom 
is: It reads its own recorded programs but wont 
read programs recorded by another drive. Shop 
repair usually costs about $50 if you can find a 
capable shop. A new drive costs about $50 and you 
have temporary return rights. Trial and error 
tweaking sometimes works. 
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Cambridge Z88 NewsNotes™ 

INFORMATION CHANNELS: When UPDATE purchased the 
Z88 back in January 1989 three issues of "News 
Notes" were received. NewsNotes is a very 
informative two page User newsletter published by 
Cambridge North America. After not receiving 
follow on newsletters, a call was made to the 
telephone numbers given in the literature supplied 
with the Z88 computer. A recording was received 
"Sorry, but that telephone number has been 
DISCONNECTED". Other Z88 users may have reached a 
dead end with attempts to contact Cambridge North 
America. Follow on persistence resulted in finding 
the current telephone and postal addresses of 
Cambridge North America. 

The Sales and Marketing office of Cambridge North 
America receives mail and telephone calls at: 
Cambridge North America, 750 West Algonquin, 
Arlington Heights, IL 60005. Telephones: 800 366 
0088 and 312 593 0253. This is the appropriate 
office for calls and correspondence pertaining to 
technical Information and publications. A helpful 
person there is Mr. Grant Kief. Mr. Kief promised 
to keep Update Magazine on their mailing list for 
all releases of User and Technical information 
about the Z88. 

The Cambridge North America office for Warranty and 
repair is: Cambridge North America, 424 Cumberland 
Ave., Portland, ME 04104. Telephone number: 207 
761 3700. This is also the Corporate Headquarters 
of Cambridge North America. This is the office to 
contact for Repair Service and for general business 
pertaining to Dealerships and Corporate business. 
Mr. Maurice Giguere is the "hands on" CEO. 

The publication of Cambridge NewsNotes has been 
suspended during the period of office moves. 
Update Magazine hopes that this nice newsletter 
will be resumed. A suitable alternative would be 
the regular release of USER INFORMATION to 
Magazines that are willing to devote page space for 
USER SUPPORT. Such programming and technical 
information from the manufacturer is needed during 
the early life of a new computer while user support 
is developing. Once programming support 
materializes within the user group the magazines 
can fulfill the on-going needs for information 
support. If a sufficient flow of user information 
from Cambridge North America develops, Update 
Magazine will publish a regular column titled 
"Cambridge News Notes". 

NEW Z88 Support: A recent development extends the 
versatility of the Z88. A Disk Drive system for 
the Z88 is now available from your dealer. This 
is a portable battery operated 3 1/2" disk system 
that matches the motif of the Z88 as a "carry 
around" computer system. Call your dealer. 

The width of the Z88 market encompasses the whole 
computer industry. Traditional Sinclair users, 
such as the subscribers to Update, are keenly 
interested in the Z88 but represent only a 
significant fraction of the user group that is 
forming. This new computer also has high appeal 
to IBM users, Macintosh users, and to the general 
public for portability. It should be fun to pace 
this growing user group in the pages of Update 
Magazine and extend our horizions. -BJ_ 
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Organization of memory 

The Z88 is based on a Z80 central processor running at 3.2876 MHz. The Z80 has a 
16-bit address bus and can thus only directly access 64Kbytes of memory. Reconciling 
oneself to this total amount of memory would be very restrictive for a machine like the 
Z88 and in fact the Z88 can use up to 4Mbytes of memory. The decoding is handled by 
the 'BLINK' gate array, which sits between the CPU and memory. The CPU 
communicates via i/o ports, which address various BLINK registers. 
The 4Mbyte physical address space is split up into 256 'banks', each of 16Kbytes. At 
any time, the Z80 can address 4 such banks. The 64K logical address space is 
notionally divided into four 16K 'segments', which are by convention numbered as 
follows: 

Segment 0: Logical addresses &0000 - &3FFF 
Segment 1: Logical addresses &4000 - &7FFF 
Segment 2: Logical addresses &8000 - &BFFF 
Segment 3: Logical addresses &C000 - &FFFF 

Facilities are provided for a program to 'bind' each segment to any of the 256 banks. 
This means that a logical address falling within each segment will be translated into a 
physical address within the bank bound to that segment, the lower 14 bits of the logical 
address providing an offset within the bank. . 

BASIC'S program/workspace is arranged in the following manner: 



LOMEM 

TOP 
PAGE 



I BASIC interpreter 



. Unused memory 
! Heap 



I Program 
I 

I Workspace for 
I interpreter 



&C000 or &4000 

Current limit of the stack 
(Stack expands downwards) 



Current limit of the heap 
(Heap expands upwards) 



&2300 
&2000 



The Expanded and noil-Expanded Machine 

When a Z88 has 128K or more of RAM in slot 1 it becomes an expanded machine. The 
differences between die expanded and non-expanded are as follows: 

Property Expanded Non-Expanded 



Size of BASIC 40K . 8K 

Maximum map width 256 pixels 80 pixels 

User characters 64 16 (but see below) 

Value of EOF#-l -1 0 



Some users will want to use extra memory, for filing for example, without the burden 
of a 40K BASIC. If all your BASIC programs fit comfortably within the ordinary 8K it 
is unhelpful to have to carry the extra 32K around, thus using slot 2 or slot 3 to expand 
the memory does not expand the machine, but just increases memory size. (Note that 
using Slot 3 for RAM causes a very heavy power drain on the Z88, due to special 
hardware for programming EPROMs.) The unexpanded machine can use 64 user 
characters, but if an 80 pixel map is used the last 48 of these will be overwritten by map 
information when PipeDream is used Reducing the map width to 64 pixels, or not 
using the map at all, allows for free use of all 64 user characters. 
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6800 DIM n$(5,3U: LET nj ( 1 )»"Updete Magazine"! 
LET nS(2)»"l3l7 Stratford Ave": LET n$ (3)»"Panam 
a City, FL 32404" s LET nJ(4)»"BIII Jones": LET n 
H5)«"Slncerely," 

6804 BORDER 0: PAPER 0: INK 7: CLS s PRINT AT 3, 
6;"Dbase-l Menu" 1 'TAB 2}"<l> Create Fl le"'TAB 2; 
"<2> Add Records" ' TAB 2;"<3> View or Print Recor 
ds"' 'TAB 2;"<4> Correct Records'" TAB 2;"<5> SAVE 
Fl le"'TAB 2;"<6> LOAD Fl le"' 'TAB 2;"<7> Sort an 
d Manage"'TAB 2;"<8> To Function Menu "'TAB 2;"<9 
> Letterhead or Sign 0ff";#0;AT 0,0;"Touch Selec 
tlon": PAUSE 0: LET z-CODE INKEYJ-48: IF z>9 THE 
N GO TO 6800 

6808 GO TO (Z<l OR z>9)*6808+(Z«l )"6812+(z»2 OR 
z«4>"6e24+U«3) ,, 7440+(Z«5>*7264+<Z»6)»7272+<Z«7) 
»7020+(Z-8)»9999+(z-9) , '7530 

6812 CLS : PRINT AT 10,6; FLASH I {"Confirm, STAR 
T NEW"; FLASH 0 ' ' TAB 6;"<y> Yes -or- <n> No": PA 
USE 0: LET z-CODE INKEYJ-48: IF Z-2 THEN GO TO 
6804 

6814 CLS ! UIMoKI,l): INPUT "Input Nbr of Reco 

rds";LI: INPUT "Nbr of Llnes7»;L2: INPUT "Chrs p 

er Llne7";L3s IF LI ^2^3+24 "L2"L3+600> FREE TH 

EN BEEP .5,30: GO TO 6814 

6818 DIM o$(LI,L2,L3): GO TO 6804 

6824 CLS : INPUT "Start at Record #7";ms: INPUT 

"End Record $7";mx 

6830 FOR o-ms TO mx 

6834 IF z-4 THEN GO TO 6850 

6838 IF z-2 THEN GO TO 6864 

6840 NEXT o: IF o>mx THEN GO TO 6804 

6842 STOP 

6850 PRINT AT 2,0 {"Record § ";o': FOR n- I TO L2: 
PRINT "Line ";n'o$(o,n> ' : NEXT n: PRINT ""O.K. 

7 <l> Yes <2> No <3> Quit": PAUSE 0: LET q-COD 

E INKEYt-48: IF q-2 THEN GO TO 6858 

6854 IF q-3 THEN GO TO 6804 

6856 IF q«l THEN CLS : GO TO 6840 

6858 INPUT "Enter Line Nbr to Correct" ;q I: INPUT 
"Key In the new Line ";y$« LET o$(o 

,ql )-y$: CLS : GO TO 6852 

6864 CLS : PRINT AT 2,0{"Record Nbr ";o": FOR n 

=» I TO L2: PRINT AT 20,0;"Key In Line # «;n"'or z 

z to Oult";AT n*2+l,0;"": INPUT y$: IF y$»»zz« T 

HEN LET n-L2: LET o-mxt GO TO 6804 

6868 LET o$(o,n)-y$ 

6872 PRINT "Line ";n'oJ(o,n) ' 

6876 NEXT n 

6880 GO TO 6840 

7020 BORDER 0» INK 7: PAPER 0: CLS : PRINT AT 2, 
0; "F 1 1 e Management Optlons"""l> Remove Repeats" 
"•2> Remove Sklps""'3> Move Zip to line 4"""4> 
Sort Oata Base"'"5> Break Lg File to 4 Files 
and Save"'"6> Combine 4 Small Disk Flies 
to Sort'"'"7> Save a Sorted Flle""'8> Load a I 
arge Flle"'"9> Clear Memory"""0> Present Key Re 
cords (Line 7 Key)"'"«> View or Prln 

t Records" '";> To Function Menu": INPUT "Input C 
holce";z$: LET z-CODE zJ-48: IF z>ll THEN GO TO 
7020 

7024 IF z>7 THEN GO TO 7050 

7028 ON ERR GO TO 7032: IF LEN o$(l,l)>l THEN 
ON ERR GO TO 7036: STOP 

7032 ON ERR RESET : CLS : PRINT AT 10,0; FLASH 

I j "No Data Present": BEEP 1,20: GO TO 7020 

7036 ON ERR RESET : GO SUB 7162 

7050 GO TO (z-I)*7II0+(z-2)*7I32+(z»3)«7070+(z»4 

)«7054+<z-5)*7240+U«6) ,, 7280+<z-7)*7264+<z-8>*72 

/2+<z»9)*7l26+<z-l0)*7440+<z«>0>*7400+<z-ll)*6804 

7052 REM Sort menu 

7054 CLS : PRINT AT |4,0;"There are ";L2;" lines 
that can be sorted,'': INPUT "Input Llne# to S 
orfjsoi PRINT AT 18,0; "You may sort by FIRST GR 
OUP of Line ";so;" or LAST GROUP:": INPUT "Inpu 
t <l> First or <2> Last";sol: IF soKI OR sol>2 
OR so<l OR so>L2 THEN CLS \ GO TO 7054 
7058>LET bJ-""!G0 TO (so I- 1 )"7364+(sol-2)*7294 
7070 REM zip codes to line 4 

7074 CLS : PRINT "Zip Codes to Line 4": FOR n-I 
10 L5s IF oS(n,4)(l)-" " THEN LET m$-o$(n,3) 



**«« jh e Ng W "D.Base-1" Software for Sinclair Oomputers 

An Issue Disk Program 

"Dbase-I" Is a now software for Sinclair Oomputers. 
The programming Is done In TS-2068 simple Basic, which 
challenges programmers of the Cambridge Z88 to clone the 
programming In BBC Basic. Actually, Dbase-I will be very 
easy to apply to both the QL and the Z88, requiring only 
rudimentary changes In syntax for counter operation, 
string slicing, and display control. Then of course the 
coding of the short Machine Code routines will be 
different for the QL and Z88. But why would emulation be 
desirable for these two advanced computers? I believe 
that an examination of the power and flexibility of 
Dbase-1 will be convincing enough. 

Update Magazine again teams up with Don Lamen, 
Slncus. This Issue Update presents the whole D.Base-l 
program In BASIC. Then In the next Issue, the sorting 
routines will be given In Machine Code by Don. By 
presenting the programming In this fashion, this Issue 
becomes a detailed tutorial on Basic and the next Issue 
will be a tutorial on Cloning Basic In Machine code. 
Actually the Basic program as given here works Just fine 
for me. I'm klnda patient and the short wait for sorting 
doesn't upset me much and gives me time to THINK. This 
will be a lesson on "String and Character Array 
Management". We will slice, concatenate, trunclate, swap 
array fields, use counters, nested counters, and trlpple 
nested counters. Sinclair Computers have the ROM 
capability to do these things, so why not? 

SINCLAIR COMPUTERS DO IT BETTER I The ONE MOST 
SUPERIOR ability of Sinclair Computers Is their built In 
management of Character Arrays. Most other .computers 
limit "String Content'' to 255 characters. The TS-2068 
allows over 4000 characters to be contained In a string, 
while the 0L allows 32000 characters. The Z88 has 
slmlllar capability. Moreover, Sinclair Computers are 
rich In "string management" abilities. The Computer's ROM 
contains more management functions for character arrays 
than any other computer. To build a software that manages 
data "outside of the variable file" requires thousands of 
bytes of programming and error trapping. Dbase-1 takes 
advantage of the built in capabilities of Sinclair 
computers for string and character array management within 
the Variable File. 

There exists many Data Base programs, each for 
special purpose. There are Mall Lists, Inventory Lists, 
Appointment calenders, Dairy herd milking records, 
Telephone lists. Dally Diary, etc. Some have print out 
capability and others do not. Some have Sorting and some 
do not. Why not "a Single Data Base Software" to use for 
all purposes? Dbase-1 Is so very flexible that it can be 
used for any application that needs "multiple records". 
The user needs to learn only one software and then can 
shape the data base to fit any need. Fourteen SORTING 
Methods are provided, which Is un-precedented. Several 
Print-Out methods are provided. Including special print 
out for Labels, and Outlines. You can use Dbase-1 for 
virtually ANY type of listing purpose that you can 
conceive of. 

DBASE-I CONCEPTS: We make maximum use of the 
Computer's FREE MEMORY, and coordinate Disk Drive 
(Mlcodrlve) to manage Data Base Files. The SORTING 
functions give the data base Its flexibility for use for 
any purpose. The USER defines the Data Base Dimensions, 
thus allowing the RECORDS to be shaped for optimum use, by 
purpose. This allows the ONE software to create and 
manage files of many dimensions and applications. File 
dimensions <TS-2068) can vary from a set of 96 Mailing 
File records to 400 shorter Inventory records, to fewer 
LONG records for other purposes. The QL's flies In memory 
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7078 i F o$ (n,4) ( I )<>" " THEN GO TO 7094 

7082 IF mKLEN m$)=" " THEN LET m$=m$ ( TO LEN m 

$-1 ): GO TO 7082 „,_ 

7086 FOR g-LEN m$ TO 1 STEP -I: IF m$(g)=»" " JHE 
N LET o$(n,4)=m$(g+1 TO ): LET o$(n,.3)=o$(n,3) ( 

TO g): GO TO 7094 
7090 NEXT g 

7094 IF n>=L5 THEN GO TO 7020 

7098 NEXT n 

7102 GO TO 7020 

7106 REM El Im repents 

7110 CLS : PRINT "Removing Repeats": FOR n= 1 u 
L5: FOR y«L5 TO n+l STEP -I: IF o$(y, 1) n o$(n, I ) 
THEN FOR g=l TO L2: LET o$ <y,g ) ="" : NEXT g 
7114 NEXT y 
7118 NEXr n 

d]m T o$(I)? DIM vSCDi DIM k$(1): DIM v$(l): 
GO TO 7020 

7130 REM El Imlnate Skips 

32 LET q-l: LET y- 1 : CLS : PRINT "Removing Ski 
ps": FOR V\ TO Lll LET x-0: IF oJ(n ( l)U)-;« - T 
HEN LET x-lt FOR g»2 TO L2: LET o$(n,g)»" ; NEX 
. FOR y-n+l TO LI: IF o$< y, I ) ( I ><>" " THEN F 
OR g-l TO L2: LET o$ (n,g ) =o$ (y ,g ) : NEXT g: FOR g 
= 1 TO L2: LET o$(y,g>«" "« NEXT g: GO TO 7142 
7138 IF x*1 THEN NEXT y 
7142 NEXT n 
7146 GO TO 7020 
7150 REM Save Zip Sort 

7154 GO SUB 7256: INPUT "Zip File # ";z : LET z*- 

"z»+STR$ z+".A$": RANDOMIZE USR 100: SAVE z$ DAT 

A o$(): GO SUB 7232: GO TO 7020 

7158 REM find array dimension # 

7162 PRINT "FINDING DIMENSION OF 0$"": LET a-0 
LET 14=0: LET 13*0: LET L2-0: LET L1-0: FOR n-l 
TO 400: ON ERR GO TO 7170: IF LEN o$ ( 1 , I , 1 ,n) > 

I AND LEN o$(2,2,2,n)>1 THEN LET a»n 

7166 NEXT n 

7170 ON ERR RESET : LET L4=n-I 

7174 LET a=0: FOR n = 1 TO 400: ON ERR GO TO 7182 

: IF LEN o$(1,1,n)>1 AND LEN o$(2,2,n)>1 THEN L 

ET a*n 

7178 NEXT n 

7182 ON ERR RESET : LET L3=n-1: 

7186 I ET a=0: FOR n-1 TO 400: ON ERR GO TO 7194 

: IF LEN o$(1,n)>l AND LEN o$(2,n)>1 THEN LET a 

7*190 NEXT n 

7194 ON ERR RESET : LET I? 

7198 LET a=0: FOR n«1 TO 400: ON ERR GO 10 7206 
: IF LEN o$(n,1)>1 AND I EN oUn,2)>l THEN LET a 



7202 NEXT n 
7206 ON ERR RESET : 
7210 CLS : PRINT AT 



5 O.M": 



7210 CLS : PKINI Ai <• 0 , "te • <->,-.". ■? ; 
11:: PRINT (»"• M Vi&WV 1 12 >% ^ k * , 



jL5 
: PAUSE 



IF L3>1 THEN PRINT L3; 
7214 PRINT ")»": FOR n-1 TO LI . tM 
218: IF o$(n,1)(D<>" " THEN LET xx*n 
7216 NEXT n: ON ERR GO TO 7218: STOP 
7218 ON ERR RESET : LET L5»xx 
7220 PRINT "The last Filled Record Is: 
7224 PRINT ""Please Make Note and ENTER" 
0: RETURN 

7228 REM Disk Prompt 

7252 CLS : INPUT "Re-Install Program DISK, and 
ENTER DRIVE t ";d: RANDOMIZE USR 100: GO TO d : 
RETURN 

7236 REM Split/Save groups of 4 
7240 CLS : INPUT "Are these Alpha or Zip Fllesf 
<1> Alpha - <Z> Z,lp7"jas GO SUB 7256 

I FT xx-l! FOR n-1 TO 96 STEP 24: DIM V$(24, 
11 151 • LET mi-(«a«"sTR$ s4 + «.A$" AND «<2>+<"f + 
STR$ s4+"f AJ" AND .>!). FOR YT"° ^™ 
o L2- LET v$(y,g)-o$ xx,g)i NEXT g: LEI xx xxn 

NEXT y: RANDOMIZE USR 100: SAVE m$ DATA v$ > I L 
c f c J ... next n: GO SUB 7232: RANDOMIZE USR 1 
00: CAT " ;$V pSiNT #0 ; AT 0,0;"Note the SAVED 

Hies, ""'Enter": PAUSE 0: GO TO 7020 



can be much larger, up to 2000 records of a mall ' » «t typ* 
of file (un-expanded QL) , or 6000 or more smaller records. 

MEMORY MANAGEMENT: The programming length of Dbase-1 
Is 12000 bytes, which leaves the TS-2068 having around 
26000 bytes of FREE memory. We reserve a "buffer in 
memory to perform disk file management leaving 21000 
bytes for data base generation. The QL and Z88 w Ml have 
a much greater allocation for the data base. tow lets see 
how this 21000 bytes can be used "by menu elective". Ihe 
data base Is created by selection of "<]> Create" at the 
menu. A series of prompts comes on that a I low you to 
"Snape the Data Base". The result of three Inputs 
"Dimensions the character array "0$". Prompts ask for: 
"Number of Records", "Number of Lines", and "Line Length . 

Suppose that you need a Ma I I File of four linos for 
the name and address, plus one line for the person's first 
name, plus two other lines for Information about the 
person. That would be 7 lines for each RECORD. How long 
should each line be?. We I I , genera I I y 31 characters Is 
sufficient for the longest of address lines, so lets use 
31. Now, how many records? Lets exper ment and Input 
,00. Then the three Inputs would be: 100 7, and 3. 
Line number 8614 would attempt to Dl mens Ion 0$( 100, 7, 31 > , 
for a file lenght of 100*7*31 bytes. But there Is a trap 
there In line 8416 which catches inputs that are too 
large, thus reserving memory for the built In Buffer The 
result would be the asking for new Inputs. Tills Is 
because 100*7*32 Is too big. 

Try 96 as the first Input, then 7 and 31, and this 
set of Inputs would be accepted. To continue with other 
examples: Suppose you want to create Invoice records of 5 
Mnes of 64 characters per line. Then 5*64=320 characters 
per record. You have 21000 available bytes, so you could 
create 21000/320=65 Invoices. Suppose that you want to 
create an Inventory file of records having 3 lines of 20 
characters per line. Then each record would be only 60 
characters. 21000/60=350 possible records. Yes, I know 
that you are thinking ahead and asking "What about the 
print out?". Several print-out formats are aval able at 
menu. Dbase-1, as it Is given here, does not I nit a I ize a 
Printer Port Code. Add your printer port code load and 
Initialization In a line number above 6800. The Dbase-1 
Issue disk will contain the printer Initialization for the 
type of disk system that the user specifies. 

THE PROGRAMMING: Line number 6800 Initializes a 
small data base (N$> for your Letterhead and signature 
Hnfls Change the LETs In this line for your letterhead 
!i.,<.« in* letterhead prints at center page when elected 
,j *„,„,„ A menu option allows printing a single 
tatte^^* «T multiple copies of Letterhead stationary. 
KT^ * *H* *> bB Panted upon 

demand. The sign off Is "Sincerely, your name". These 
P Tnt products were conceived for Invoices. Then Line 
6804 Is the primary Menu, having 9 elect Ives. Each of 
these elect Ives are straight-forward. The data base Is 
re red from this menu. L?ne 680* contains the branches 
(GO TO) for each of the menu e ect Ives . Th Is I s In 
boolean logic which compresses 10 IF THEN GOTO 
evaluations Into one line and conserves program length. 

Line § 6814 Is Important because it establishes three 
key variables wh I ch are used throughout the program. U 
Is the number of records, L2 Is the number of lines In 
each record and L3 is the line length. During management 
of Disk Files, the "Find Dimension" routine at line 7 62 
operates after a file has been loaded from disk. The disk 
Hie Is then In memory, and its dimensions ere found and 
assigned to variables LI, L2, and L3 Also the "last 
filled record" of the file Is assigned to variable L5. 
These four variables allow the management of three 
dimensioned character arrays of various d Imens Ions. One 
warning becomes appropriate. The management system 
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7252 REM Disk prompt 

7256 INPUT "Install DATA disk, Then Enter Disk 
#";d: RANDOMIZE USR 100: GO 10 (J: RANDOMIZE USR 
1 100: CAT ".AS", : RETURN 
7260 REM Save File 

7264 CLS : GO SUB 7256: INPUT »<!> Alpha Save- o 
r <2> Zip Save ";az: INPUT "EnTer File Nbr?";a: 
LET m$=("A"fSTRS a AND az<2 )+("Z" HSTR$ a AND az> 
I): LET m*-m$+".At»: RANDOMIZE USR 100: SAVE mt 
.DATA oJO: GO TO 7020 
7268 REM Load Alpha File 
, 72 72 CLS : GO SUB 7256: INPUT »<1> Alpha File- < 
2> Zip Flle";a: INPUT "Input File Nbr lo Load 
m$: LET m$=("A"'mS AND a<2 )+("Z"+m$ AND a>l): Dl 
M ol(l,l,l): DIM v$ < I , I ) : LET mt=m$f • . A$ " : RANDO 
MIZE USR 100: LOAD m$ DATA o$(): GO SUB 7232: GO 

SUB 7162: GO TO 7020 
.72 76 REM Merge 4 smal I f I les 

7200 CLS : GO SUB 7256: INPUT "<1> a files- or < 
2> z flles?";a: INPUT "Input Start File number t 

0 Merge";m: LET m*» ( "a"+STR$ m AND a<2 )+ ("z"+STR 
S m AND a>l J: DIM o$( I ): LET m$=m$+".A$": DIM v$ 
(I): RANDOMIZE USR 100: LOAD m$ DATA v$(): GO SU 
B 7162: DIM o$ (96, L2 , L3 ) : LET xx-1: FOR n=oa TO 
96 STEP 24: DIM v$ (24, L2, L3 ) : FOR y-m 10 m+3: GO 

SUB 7204: FOR q« I TO 24: FOR 1=1 TO L2i LEI o$( 
xx, l)=v$(g, I ): NEXT I: LET xx-xxH : NEXT g: LEI ' 
m=mil: NEXI y: LEI m=mH: NEXT n: DIM v$(l): BEE 
P I, ok: CLS : PRINT "Files ";("a" AND a<2)+("z" 
AND a>l);" ";m-3;" fo ";m;" are combined and rea 
dy"'"1o Sort. ENTER" : PAUSE 0: GO SUB 7232: GO 
TO 7020 

7284 DIM v$(l): LET mJ=("sa"+SlR$ m AND az<2H(" 
za'HSTRS m AND az>l): LET m$*m$i".A$": RANDOMIZE 

USR 100: LOAD m$ DATA v$(): RETURN 
7290 REM reverse groups In line (so) for .sort b 
y first chr group 

7294 CIS : PRINT "Reversing groups In Line ";so: 
' FOR n=l TO L5: LET b$=o$(n,so) 
7300 IF b$(LEN b$)=" " THEN LET b$=b*( TO LEN b 
i-l): IF LEN b$>5 THEN GO TO 7300 
7304 FOR g-L.EN b$ TO I STEP -I: IF g= I THEN GO 
TO 7316 

/308 IF b$(g>=" " THEN LET o$ (n ,so),=b$ (g+ 1 TO L 
F.N b$H" "»bJ( 10 g-l): GO TO 7316 
7312 NEXT g 

7316 IF n>»L5 THEN GO TO 7364 
7320 NEX? n 
7324 GO 10 7568 

7 520 REM Return line so to orlg data 
7332 FOR n = l 10 L5: LET m$=o$(n,so) 
'7536 IF ml (LEN mS)=" " AND LEN m$>! THEN LET m$ 
=m$( 10 LEN m$-l): GO TO 7336 
' 7 540 IF LEN m$-5 THEN NEXT n : GO TO 7352 
7344 FOR y=l TO L2: IF m$(y)=" " THEN LET o$(n, 
so)=m$(y+l TO )+" ">m$( TO y ) : GO TO 7352 
7 548 NEXT y : 

/35Z IF n>«L5 1HEN GO TO 7396 
7356 NEXT n : GO TO 7396 
7360 REM *** Sort First Group 
7364 PRINT "Sorting, line ";so 

7368 DIM v$(L2,L3): LET n-L5: LET l-n-li FOR J - 1 

TO I: LET k-J+l: FOR L=n TO k STEP -I 
7372 IFol(L,so)(l TO 4)=" " THEN GO TO 7384 

7576 IF oJ(L, so)>o$(J ,so) THEN GO TO 7384 

7580 IFo$(L,so)(l TO4)<>" " THEN LETb$»o$ 

(L,so): FOR x=l TO L2: LET v$(x)=o$ (L,x> : NEXT x 

: FOR x=l TO L2: LET o$ (L,x) =o$ (J ,x) : NEXT'x: FO 

R x"! 10 1.2: LET o$(J ,x)»v$(x) : NEXT x 

7384 NEXT L 

7308 NEXT J 

7392 IF so I =2 THEN GO TO 7532 

7396 CLS : PRINT AT IO,4;"Sort Complete": BEEP I 

,18: PAUSE VAL "200": GO TO 7020 

7400 CLS : PRINT AT oj ,oo; " Input Key Word": INPU 

1 yS: INPUT "<!> View or <2> Print out";z: IF z» 

2 THEN INPUT "Tab?";tb: INPUT "nbr lines per pa 
ge7";ln: INPUT "Page Nbr7";pg 

7404 LET nn=0: FOR n-l 10 L5: IF oS(n,7)( TO LEN 
y$)=y$ THEN GO SUB 74 12 
7408 NEXT n 

74 12 IF z-l THEN PRINT "Record* ";n 

7416 IF z-2 IIIEN L PR I N F "Record* ";n: LET nn=nn 



+ 1 

7420 FOR y=l TO L2: 
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requires that a file loaded from disk be accomplished via 
MENU SELECTION. If a file should be loaded from disk via 
a direct command, then the "LI through L5" va rs would not 
be correct and the system management would break down 
during some selected functions. 

The Dbase-1 program does not use a "vars table". The 
program variables are assigned as needed. When the 
program Is keyed In and has been tested, you can gain 
around 1000 bytes of FREE by systematically editing all 
lines and enclosing all numbers In Quotes and proceeding 
them with VAL. Various "variable Switches" are used for 
"turning ON or Off" certain funcMons as menu options are 
elected. Two examples can be seen In the printing routine 
at line 7480, where variable "pgc" Is used to switch ON or 
OFF "page control" and variable "ret" Is used to switch ON. 
or OFF dual return labels while printing address labels. 
You can discover other examples of "variable switches" In 
the LET statements throughout the program after prompts. 
Some prompts use INPUT for a variable to be assigned 
< INPUT A>, and others use INKEY$, as <PAUSE 0: LET A=<J0DE 
INKEY$-48>. The latter assigns a number key value to the 
LET variable A. 

DIGGING IN TO CHARACTER ARRAY MANAGEMENT: 
CONCATENATION: Working with Numbers: Thafs what Sinclair 
Computers do best. Learn this and most other things 
become more understandable. Every character that you see 
on screen Is a "number"! A=65 and a=97 and space=32. To 
learn others refer to the user manual "Character Set". 
Hie character set Is known by another term "ASCII CODES". 
All of the alphabet, plus math symbols, puncuatlon 
characters are assigned a number. The number Is In 
consecutive order from zero (48) through number 9 (57). 
Then A=65 through Z=90. Lower case characters picks up; 
a=97 through z=122. The gaps are filled with math symbols 
and puncuatlon symbols, so we can SORT TEXT by NUMBER 
comparisons. If we sort a and A, then A comes first 
because A=65 and a=97. We can even say that In computer 
syntax: <IF"A"<"a" THEN PRINT "Aa">. The computer 
evaluates and find TRUE and prints "Aa". 

Now lets SORT a string of data. Do it with your 
computer. <LET a$="aAa"> <IF A$(I»A$(2) THEN LET 

a$=a$(2)+a$(l )+a$(3 TO ) > <PRINT a$>. This exercise does 
two things. It compares the first two characters In a$ "by 
their number value" and then It CONCATENATES a$, 
re-arranging Its characters. If this stumps you then you 
haven't started off with a grasp of the fact that In any 
string of characters each character has its own "Index 
number" In the string. We started off with a$ having 3 
characters. A$(l) was a, a$(2) was A, and a$(3) was also 
a. If a$ had had 10 characters, as <LET a$="ABCDEFGHI J", 
then A$(10) would be "J". Count up the characters and 
this will come Into focus. In dealing with CONCATENATIONS 
we use the "INDEX NUMBER" In Hie siring. We will use that 
last example of 10 characters: LET B$=A$(5 TO ). Now we 
have "SI Iced" some of A$ off and put the SI Iced data Into 
B$. <PRINT B$> produces "EFGHIJ". 

So now W( 
CONCATENATE I n 

All you need to do Is PRACTICE with the computer and 
you'll have It down pat. Once you can confidently 
Concatenate, Slice Strings, and SORT, you can Join the 
head table at any computer programmer's convention. And, 
you'll know more than some at the table. These three 
operations are the stumbling blocks to learning computer 
programming, and they are so simple that everyone should 
STUDY and PRACTICE. Practice is more valuable than study. 
Now we will get Into the SORTING FUNCTION of this Dbase-l' 
program. These are the functions which provides the 
versatility of the software, and each uses the simple 
methods of number comparison and String Contat i nat I on. 

First we will study the listing, which Is all in 



have learned how * to SORT and how to 
one small paragraphl Really, you havel 



IF z=l THEN PRINT o$(n,y) 
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, 74 24 IF z=2 I HEN LPR I NT o$ ( n , y ) : LEI nn=nn+l: I 
'F nn>=Ln THEN LPR I NT '"TAB 40;pg: LET pg=pg+1 : 
LET nn=0: OUT 127, 12 \ . . 

7428 NEXT y i ' 

74 32 NEXT n : GO 10 7020 

7440 LET spc=0: LET ret = 0: LET Ln=54: LET nn=0: . 
■CLS : PRINT #0;Af 0,0; "View or Print out?"'V<1> 
View <2> Print out": PAUSE 0: LET x=CODE I NKEY $ 
-48: IF x>2 THEN 60 TO 7440 

7442 IF x = 2 THEN INPUT "Enter STARTING RECORD"; 
ms: INPUT "ENDING RECORD 7" ; mx : INPUT "Enter NW 
of Lines to Print (4 for Labels)";Lp: IF Lp-. 

4 THEN INPUT "Return Labels Too7 . ' < 

I > Yes or <2> No"; ret 
1 7444 IF x-2 THEN GO TO 7480 

, 7448 PRINT /0;Af 0,0;"<l> Whole Records , -or 1 " "<2 
> Single Lines? ": PAUSE 0: LET ,r=CODE 

INKEYJ-40: IF r=2 THEN CLS : PRINT #0;AT 0,0;"E 
nter record Line Number to vlew(l to ";I2;")": P. 
AUSE 0: LET rl.=CODE INKEY$-48: CLS : PRINT #0;AT 
0,0;"To Discontinue, Jab Break" ! . 

, 7454 CLS : PRINT /0;AI 0,0;"T"o Discontinue, Jab , 
Break": PAUSE 200: CLS 

.7460 IF r=l THEN FOR n= I TO LI: PRINT n.: ON ERR , 
GO 10 7460: FOR g = l 10 L2: PRINI o$(n,g): NEXT 

• g : PR IN! : NEXT n : STOP 

7464 IF r=2 THEN FOR n= I TO LI: ON ERR GO TO '7 
468: PRINT n'oKn, rL): PRINT : NEXT n :i •, 
7468 ON ERR RESET : PRINT '"Enter for Menu": PA 
USE 0: CLS : GO TO 6804 

7480 CLS : INPUT "TAB?";tb: INPUT "Do you want a 
n OUTLINE Format7 <t > Yes or <2> No";tb2: INPUT, 
' "Spaces between Records 7 "; sp : INPUT "Do you wan 
't page control <l> Yes or <2> No'";pgc!' IF 

" pgcl THEN INPUT "Page #";pg: INPUT "Set Print 
\er and INPUT t Lines per Page?";Ln ' 
'7482 PRINI AT 8, 2; "Your Set-up I s : " ' ' I AB 2; "Prl ri 
t Records ";ms;" to "jmx'TAB 2; "Pr I nt I ng I I nes l< 
■to "jlp'TAB ?;"A1 tab "; t b' TAB 2;"Spaces betwee 
n records- ";sp': IF pgc=l THEN PRINT »page='«;p . 
g'"Llnes per page=";Ln: IF ret-l THEN PRINT "Re 
turn Labels will print'"' 1 
7484 IF tb2=l THEN PRINT "Outline Format": INPU 
,T "Correc»7 <l> Yes or <2> No";z: LET tb2=( tb+3 
AND 1b2<2)+(tb+3 AND tb7<2): IF z-2 1HEN . GO TO 
7440 

7488 FOR n-ms TO mx : FOR > 1 10 Lp : I.PRiNT TAR ( 

tb AND n<2 OR tb2>1 )+( tb2 AND n>l AMD 1b2<2);o$( 

n,y): GO SUB 7510: NEXT y: GO SUB 7516 

7490 IF spc=l AND nn+Lp>Ln THEN GO SUB 7500 

7494 NEXT n 

7496 GO TO 6004 

7500 LPR! NT " 1 1 AB 50;pg: OUT 127,12 
I: LET nn=0: TRINT "Service Printer, 
: PAUSE 0: RETURN 
7510 IF pgc=l THEN LET fjn-nn».l, 

7516 FOR g=l TO sp : LPR I NT NEXT g: I F pgc= I TH 
EN LET nn-nn+sp: IF nn>Ln+sp THEN GO SUB, 7 520 . 
75 1 8 RETURN 

7520 LPR INT "TAB 50;pg: OUT 127,12: LPR I N F : PR 
INT AT IO,2;"Servce printer, Then ENTER": PAUSE ' 
0: CLS : RETURN ' . 

7550 CLS : INPUT "<1> Letterhead or <2> Sign Off 
7»;ls: IF ls-1 IHEN INPUT "<1> Single or ,<2> Mu ' 
I f lp le?";sm , ''. 

7532 IF I s" I AND sm=2 THEN FOR y 1 10 mx 
7534 IF ls*l THEN FOR n = l TO 3: LPR I N T TAB 20 ;n 
' Mn): NEXT n: OUT 127,12: IF snr*2 THEN NEXT 
7536 IF ls-2 THEN LPR I NT "'TAB 30;n$(5)' 
30;n$(4): OUT 127, 12 
'■';75'38 GO TO 6804 
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: LET pg=pg+ 
then ENTER" 



' TAB 



'simple basic. Hi I s Is quite a plate full, and It may 

take a week or two to key It all In and check the 
operation. You can tackle It with confidence knowing that 
this software DOES WORK. The Job of Keying 11 In will 
accomplish two worthy goals. First, a working 
understanding of how the program works will be gained. 
Then you will have a very useful software to use forever* 
As one keys In projects such as This long program, a full 
understanding Is not usually gained at first. However, 
there Is something about keying In programs that sticks In 
one's memory and brings later comprehension. The ad of 
doing It Is the best way of learning computer programming. 

We will start with the "Sort Selection Menu" at line 
# 7054. Here we see the "L" variables previously 
discussed. L1 = flr'st dimension of the character array 
0$(x,x,x). L2=second dimension, which Is the Number of 
Lines In the records. The menu asks for you to decide 
"which line to sort". If you elect to sort LINE #1" then, 
vars "so=l". The next prompt asks for you to elect to 
sort "by first group of line 1, or last group of line 1". 
For understanding I will give you a typical "line #1". If 
Line 1 of the first record were "Mr. Benjamin K. 
. Franklin", and you selected "sort by line I and Last 
Group", then you have set up to sort by "Last Name" of a 
mall file. You could have elected "first group" and the 
sort would sort "Mr.", which would serve no useful 
purpose. 

But If you were sorting an "Inventory file" then the 
first group of I I ne 1 would likely be a "Stock Number", 
and "sort by first group" would give you sort by Stock 
Number. The number of Sorting Options vary by the number , 
of LINES In a record. If your dala base has 6 lines then 
you have 12 choices of sorting. If the record contains 20 
lines, then there are 40 choices of sorting. The Sorting 
method is "by first or last distinctive WORD or GROUP of 
the selected line". During the Sorting, all lines of the 
record will be rep!nc.«d as a sorting action occurs. A , 
tremendous number of actions occurs during sorting of a 96 
record file. The very least number would be 9216, Each 
"record sorted" would be 14 more actions by the nested 
counters. There could be as many as 129024 Individual 
sorting actions for a 96 record file in the few lines 
beginning a I line #7368 and ending at line #7 588. 

Now lets shift our attention io the actual SORTING' 
routine which begins at line It 7364. Note the REM at line 
7360. which stales "Sort First Group"l Something Is amiss 
here! We sel" I <>d "sort by last group of line 1 

(Franklin)". Yep' ! f this line were to operate now, the 
so.f?t w/s>JliMj \\\\<m i«$ tof "Mr.", which would be of no val.ue. 
'so, teVs -go tefrck Vo the menu at "line f 70'54. There we see 
the next program line (7058), and Its statement "IF soL=2 
THEN GO TO 7294". Then line number 7294 is where we must 
continue the examination. At line 7294 the "last group" 
In the selected sort line Is moved ahead to become the 
'"first group" in the line. We do that with the "n 
counter" to count up all records In the data base. Then 
each first line of each record Is re-arranged so that the 
character group that we want to sort Is placed FIRST In 
the I Ine (Frank I In). 

When finished with the reversing procedure, line 
number 7324 operates to <G0 TO line 7368>. Now we can 
look at line 7368 where the SORT I NG occurs. At line 
#7368, we establish a buffer for holding each record as 
the sorting Is accomplished. V$ Is dimensioned 
"V$(L2,L3)" which matches the record size of the data file 
being sorted. The routine that follows counts up to the 
END record In the file. With each count, the "first 
character group" is compared with the first character 
group of the "last record" In the file. This Is a 
"numeric evaluation" slmlliar to how we compared "a" and, 
"A" In the earlier discussion. Each time the record at 
the END of the file is SMALLER, then the buffer (V$), 
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Line Changes for Ollger DOS 

7152 GO SUB 7256: INPUT "Zip Fl le# 7";z: LET zS- 
"z"+STR$ z: SAVE z$ DATA o$(): GO SUB 7232: GO T 
0 7020 

7232 CLS : INPUT "Re-Install Program Disk, ENTER 

DRIYE # 7";d: LET /d-d: RETURN 
7244 LET xx- J : FOR n- I TO 96 STEP 24: DIM vj(24, 
12,13): LET irt$-("a"+STR$ s4 AND a<2 )+("z"+STR$ s 
4 ANO a>l): FOR y- I TO 24: FOR g-l TO 12: LET v$ 
(y,g)-o$(xx,g>: NEXT g: LET xx-xx+l: NEXT y: SAV 
E /m$ OATA vf(): LET s4-s4+l: NEXT n: GO SUB 723 
2: CAT : PRINT #0;AT 0,0;»'Note the Saved Flies, 
ENTER": PAUSE 0: GO TO 7020 

7256 INPUT "Install Data Disk, then ENTER Disk 
#";d: LET /d-d: CAT : RETURN 

7264 CLS : GO SUB 7256: INPUT "<l> Alpha Save, o 
r <2> Zip Save ";az: INPUT "Enter File Nbr7";a: 
LET mJ-("A"+STR$ a AND az<2 )+<"Z"+STR| a ANO az> 
I): SAVE /mi DATA o$(): GO TO 7020 
7272 CLS : GO SUB 7256: INPUT "<l> Alpha File or 

<2> Zip Flle";a: INPUT "File Nbr to Load?"jm$: 
LET m$»("A"+m$ AND a<2)+("Z"+m$ AND a>l): DIM o$ 
(1,1,1): DIM v$(l,l): LOAD /m$ DATA o$(): GO SUB 

7232: GO SUB 7162: GO TO 7020 
7280 CLS : GO SUB 7256: INPUT «<!> Alpha File or 

<2> Zip Flle";a: INPUT "Start File to Merge7";m 
: LET m$-("a"+STR$ m AND a<2 )+("z"+STR$ m AND a> 
I): DIM oJ(U: DIM vJ(l): LOAD /mS DATA v$(): RE 
M Continue Same Programming as In line 7280 abov 
e. 

7284 DIM v$(l): LET m$-("sa"+STR$ m AND az<2)+(" 
za"+STR$ m AND az>U: LOAD /m$ DATA v$(): RETURN 



Line changes for the Aerco FO-68: 

There are two functions that cannot be done with 
the Aerco FD-68 because of the lack of a .CHR 
Extension. These are the "Split and SAVE" and 
"Load and Combine Small Files". The first change 
will be to delete those functions from menu. 

These adaptations have not been tested and may 
require some string Concat adjustments. 

7020> BORDER Oi INK 7: PAPER 0: CLS : PRINT AT 2 
,0j"Flle Management Optlons"""l> Remove Repeats 
"'"2> Remove Sklps"""3> Move Zip to line 4"'"4> 
Sort Data Base" M "5> Save a Sorted Flle"'"6> Lo 
ad a Flle"""7> CLEAR Memory" M, 8> Present Key Re 
cords"'" (Line 7 Key)" M "9> View or Print Reco 
rds"'"0> To Function Menu": INPUT "Input Choice: 
";z$: LET z-CODE zJ-48: IF z>9 THEN GO TO 7020 
7024 IF z>5 THEN GO TO 7050 

1050 GO TO U«\)*H\0+(i-2)*7l32+U»3) 1, 7070+U-4 

)»7034+(z-5>*7264+(z-6)«7272+U-7)»7l26+(z-e)*74 
4O+(z-9)"7400+(z-0) , «68O4 

7154 GO SUB 7256: INPUT "Zip File § 7";zi LET z$ 
«"z"+STR$ z: MO YE "z$.VAR»,: GO SUB 7232: GO TO 
7020 

7232 CLS : INPUT "Re-Install Program Disk, ENTER 

Which Drlve7";a$: RETURN 
7240 REM DELETE this line. 
7244 REM Delete this line 

7256 REM remove rem + this ** CLS : INPUT "Insta 
II Data Disk, Then ENTER Which Dlsk?";aJ: CAT 
»a$":",: RETURN 

7264 CLS : GO SUB 7256: INPUT "<l> Alpha Save- o 
r <2> Zip Save";az: INPUT "Enter file Nbr:";a: L 
ET m$-("A"+STR$ a AND az<2)+("Z"+STR$ a AND az>l 
): LET m$-m$+».YAR": MOVE "a$:m$",: GO TO 7020 
7272 CLS : GO SUB 7256: INPUT "<l> Alpha File- o 
r <2> Zip flle";a: INPUT "File / to Load7»;m*i L 
ET mJ«("A"+m$+".VAR" AND a<2 )+("Z"+m$+". VAR" AND 
a>l): DIM v$(1,l)s CAT "a$:m$»,: GO SUB 7232: G 
0 SUB 7032: GO TO 7020 
7280 REM DELETE this line 

7284 DIM v$(l): LET m$-("sa"+STR$ m AND az<2)+(" 
ze"+STRt m AND az>l): LET m$-m$+".YAR": CAT »a$: 
m$",J RETURN 



receives all record lines of the first record. Then 
the first record Is REPLACED with the LAST RECORD. This 
leaves two Identical records. 

Then the LAST record Is replaced with the record that 
Is In the buffer (V$). The results from this Is that the 
entire file of records Is sorted. Next, at line # 7392 
there Is a branch. Remember that we had to REVERSE the 
groups In line 1 to sort by "Franklin" or last name. Here 
M soL»2" and the branch Is to line number 7332. At line 
7332, the reverse again takes place to move the "first 
group" In each record's sorting line back to Its original 
position In the line. When finished with that we come 
back to line 7396 to present the "sort complete" message 
and return to menu. Of course, this double reversal Is 
not used when the sorting selection Is "First Group". 

REPORT CODES: While operating a Basic Program, and 
mistakes are made, the TS-2068 stops and gives a friendly 
REPORT CODE at screen bottom. Examination of the Report 
most times tells one what mistake was made. The 
suppression of these report codes can be done with 
programming, but often the program Is extended to such 
length that the DATA CAPACITY Is severely limited. But 
without suppression, the user Is left with a STOPPED 
program with every mistake. The solution Is to know the 
"60 TO" to get back Into operation without loss of data. 
<G0 TO 6800> Is to the Master Menu of D.Base-l and Is the 
recovery for all Report Codes. But one should first 
"THINK, What Caused The Report Code", so that the same 
mistake Is not repeated. 
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S1NCUB, the Sinclair Users Society of Upstate 
New York, is offerinq four PD disks for sale or 
exchanae. These disks are available on the Uliqer 
format (and Larken very soon, we hope), double 
sided double density (DBDD) . 40 tracks, 
contains entertainment programs. Disk »102 has 
business applications. Disks *103 and «104 contain 
a potpourri of programs. There are over 100 files 
in all. These disks are being offered at cost for 
*2.30 each (about lO cents a program!) The 
programs are taken from BiNCUS members, exchange 
tapes from other clubs, newsletter articles, 
CompuServe, and other bulletin boards. For a 
complete list of titles, send a BASE to the 
address below. To order send a check or MO (*2.SO 
for each disk) and indicate which disk(s) you wish 
to obtain. 

John Colonna, BINCUB 
2B Guilfoyle Avenue 
Blnghamton, N.Y. 13903 
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VU-CALC TUTORIAL. 
HIDE PRINTER ENHANCEMENT 
AND ADDITIONAL NOTES ON VU-CALC. 
By Bob Mitchell Willowdale Ontario 

Printing a spreadsheet on the tiny 2040 printer does not 
provide a very useful output. You end up cutting and pasting to 
get a full display on one piece of paper. Then f to keep the copy 
from fading or turning brown, it must be photocopied. Hardly 
state of the art! 

Thus provoked, I wrote a revised version of the vu-calc 
BASIC program <vcalc.B3> to take advantage of my wide printer 
(Smith-Corona Fastext 80) and the Larken printer interface code 
(pif) contained in the Version 3 Eprom available from Larken 
Electronics. 

Next came a BASIC routine to perform the spreadsheet 
printout <vcalcP.B2>j this will work fine, but the printout is 
very slow. The next step was to compile the printout routine via 
Timachine and the result was much faster, quite tolerable in 
fact. 



The "Mitchell VC" Issue Disk for LKDOS 
(Oliger DOS Version avail August 1989) 



Let's take <vcalc.B3> first. 

Enter vcalc.B3 (listing 1) and SAVE by going to line 9900 
(or 9910 for a Larken AUTOSTART SAVE). 

To uee vcalc,B3 requires the vu-calc machine code that 
appeared on the original tape. If you have this on disk, skip 
the next paragraph. 

If you are going to load the code "vc* from the original 
Psion cassette, LOAD vcalc.B3, BREAK into BASIC, position the 
tape at the start of the code and use LOAD " CODE. When the 
code is loaded, enter <G0 TO 12> to carry on. Now is a good time 
to SAVE this code to disk. Use <PRINT #4: SAVE 'v.Cl'CODE 
29327,5230. 

There is a display of the number of formula slots used out 
of the 100 available; this helps keep track of how many have 
been used. Careful assignment and editing of formulae is 
essential to avoid running out of slots, especially in a complex 



Two HELP files available on the Update disk 
displayed on screen using <taswide>. Alternatively, you can 
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a copy on your wide printer by using the Larken pif. 
must have the Version 3 Larken Eprom to do this, 
following procedure to get this print outs 

1. PRINT #4: POKE 16090,63: REM line length 

2. PRINT #4: POKE 16092,10: REM line feed 

3. PRINT #4: POKE 16094,8: REM left margin 

4. PRINT #4: LPRINT "vcCT.CT" (or vcT?.CT). 

The two Help Files are: 

1. Commands. <vcC?.CT> This is essentially the 
detail included in the Vu-Calc manual, with a 
few additional notes. 

2. Tutorial. <vcT?.CT> This is the file you are 
viewing now. It not only explains how the 
printing takes place on the wide printer but 
also includes additional information on 



be 
get 
you 
the 
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LISTING 1 



10 ON ERR RESET : CLEAR VAL ' 
29327": CLS : RANDOMIZE USR VAL 
"100": OPEN #VAL "4","dd" 

11 PRINT #VAL '4": LOAD "v.Cl" 
CODE 

12 PRINT #VAL "4': OPEN #VAL ' 
3Vlp"- PRINT #VAL "4": POKE VA 
L , 16090", VAL "127": PRINT #VAL 
■4": POKE VAL "16094", VAL "8": P 
RINT #VAL , 4": POKE VAL "16092", 
NOT PI 

20 CLEAR : GO TO VAL "3200" 
900 LET 1 enc=PEEK bfre+VAL "256 
"#PEEK (bfre+D-zz: RETURN 
1000 GO SUB VAL "1100": PRINT #V 
AL "4": LOAD a*C0DE : CLS : GO T 

0 USR e2 

1100 GO SUB VAL "1200": PRINT #V 
AL "4": CAT '.CVV INPUT "name? 
(eg,vinc)" LINE a$: LET a$=a$+ 
\CV': RETURN 

1200 PAPS* MAL *i*t INK VAL *d"» 

BORDER VAL "1": CLS ! RETURN 
2000 IF PEEK VAL "63000" OVAL "2 
05" THEN PRINT #VAL "4": LOAD ' 
v2. CP 'CODE VAL '63000" 
2005 RANDOMIZE USR VAL "63000" 
2010 GO TO USR e3 
3000 GO SUB VAL "1200': PRINT "1 
>EXIT'""2>CLEAR WS"""3>RESUME" 
""4>DATA via TAPE"""5>HELP!"* * 
■Formulae used* " ; PEEK VAL "3456 
6": INPUT "OPTION? "ja 
3010 IF a>N0T PI AND a<VAL "6" T 
HEN GO TO (VAL '3Q0Q"+a*VAL "10 
0") 

3020 GO TO VAL '3e3" 

3200 CLEAR : DIM b*(VAL '100'): 
DIM c$(VAL "20"): GO SUB VAL "12 
00" 

3201 LET el=VAL '29764": LET e2= 
el+VAL '3': LET e3=e2+VAL "3": L 
ET zz=el+VAL '4789': LET bfre=ei 
+VAL "4798": LET dcontx=el+VAL ' 
4376": LET xcol=el+VAL "3116": L 
ET xrow=xcol+LN Pi: GO TO USR el 

3300 CLS : GO TO USR e2 
3400 INPUT "l=save 0=load "jsl 
: IF NOT si THEN CLS : LOAD "C 
ODE : GO TO USR e2 
3410 IF si THEN GO SUB VAL "900 
": SAVE a*C0DE zz,lenc: CLS t GO 
TO USR e2 

3500 INPUT "l=commands 0=tutoria 

1 "jcc: IF NOT cc THEN CLS : LE 
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Also included is an option in the vu-calc BASIC program to 
save or load data files via tape. 



Enter vcalcP.B2, the wide printer routine (listing 2) and 
save it. 

Several lines send commands to the printer: Line 2008 

selects PICA font and turns CONDENSED mode OFF. Line 2010 sets 

CONDENSED mode to ON; this is a fairly standard command <0UT 

127,15). Lines 2075 and 2120 da a Line Feed while line 2135 does 

a form feed. Check your printer manual for correct commands and 
change these lines accordingly. 

You may want to check the BASIC before compiling. Activate 
your LKD0S printer interface code, load a data file and 60 TO 
110. Your printer must be turned on. The spreadsheet will be 
printed, albeit very slowly. Make sure the BASIC is working to 
your liking before compiling it. 

Clear the computer and LOAD Timachine. LOAD vcalcP.B2 into 
Timachine (use RANDOMIZE USR 100! LOAD "vcalcP.B2) and do the 
compilation. SAVE the compiled code to disk and clear the 
computer. LOAD the compiled code back into the computer and SAVE 
it again as v2.CP CODE 63000, length, (length is given in the 
Timachine output.) 

Make sure your wide printer is ON. 

LOAD vcalc.B3 and using vu-calc option <#1>, (that's el for 
Lima), load any available spreadsheet data or make up one. There 
is a sample on the Update disk (vgh2). Use the vu-calc command 
<«P> to start the wide printer routine. 

You are prompted for some inputs. It will be necessary to 
determine the dimensions of the wide printout as you view the 
screen and before going to the print routine. 

1. extra space between columns? y/n. Entering <y> will make 
reading columns with seven numbers easier. This will 
sometimes break up words that span two or more columns. 
Unless the numbers are large enough to fill up the 
column width, <n> will usually suffice. 

2. No. of cols. Up to 9 columns (spaced) or 10 (unspaced) 
will result in a PICA sized printout; otherwise 
CONDENSED mode will be switched in. If too many columns 
are called for, an error report will appear and this 
prompt will be repeated. 

3. start at col? (1-50). Enter the column number shown at 
the top of the vu-calc grid. 

4. start at row? (a TO ax). Enter the row letter shown at 
the left side of the vu-calc grid. 

5. end at row? (b TO ax). Enter the row letter at which the 
printout is to stop. The <b> in this example will change 
to correspond to the next letter after the start row 
letter. 

6. paper eject? Enter 1 for yes or 0 for no. 

j 3 
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T i$="vcT?.CT': GO SUB VAL "3600 
"! GO TO VAL "3000" 
3510 CLS : LET i*='vcC?.CT* : GO 
SUB VAL '3600': GO TO VAL "3000" 

3600 IF PEEK VAL "64300" OVAL *2 
45" THEN PRINT #VAL "4": LOAD " 
taswi.Cx'CODE 

3610 ON ERR GO TO VAL "3620': P 
APER VAL "7": INK NOT PI: BORDER 
VAL "7": as : RANDOMIZE USR VA 
L ■64300": PRINT CHR$ VAL '3';: 
PRINT WAL "4": PRINT i* 
3620 ON ERR RESET : PRINT CHR$ 
VAL "2": PRINT "Press a key": PA 
USE NOT Pis RETURN 
4000 GO SUB VAL "1100": GO SUB V 
AL "900": PRINT #VAL "4": SAVE a - 
SCODE zz.lenc: CLS : GO TO USR e 
2 

5000 LET c*=STR$ VAL b$: GO TO U 
SR dcontx 

9000 GO SUB VAL "1200": PRINT " 
""ERROR was at" ""COLUMN " ; PEEK 
xcol+VAL "1" 

9100 LET a=PEEK xrow: LET b=INT 
(a/ VAL "26"): LET a=a-b#VAL '26' 
: LET d$=CHR* (b+VAL "64')+CHR$ 
(a+VAL "65"): IF b=N0T PI THEN 
LET d*=d$<2) 

9200 PRINT "ROW "5d$: INPUT " 
Press ENTER to continue" ib$: GO / 
TO USR e2 

9500 INPUT a: PRINT PEEK a+VAL ' 
256"*PEEK (a+SGN PI): GO TO VAL 
■9500" 

9900 CLEAR VAL "29327": RANDOM Z 
E USR VAL "100": SAVE "vcalc.B3" 
LINE VAL '10': STOP 
9910 CLEAR VAL "29327" J RANDOM I Z 
E USR VAL ■ 102" : GO TO VAL "10* 



LISTING 2 



50 REM !USR 63000 

60 REM ! LPRINT 

70 REM ! INT +xs, le,end,x,y,r,h 
,eject,z,q,f,g 

80 REM !LEN *<>2 

90 REM ! LIST 
100 REM ! OPEN * 
110 GO TO 2000 

1000 IF IN 1270237 THEN GO TO 
1000 

1010 RETURN 

2000 CLS : INPUT "extra space be 
tween colunns? y/n"; LINE s$: IF 
s$OV AND s$OV THEN GO TO 

2000 UPDATE MAGAZINE 
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VU-CALC INSTRUCTIONS 
COMMAND PANEL. Four types of inputs: 

1. TEXT. Enter column or row headings or subheadings, names, or 
any other labels you choose. 

First, position the red cursor to the box on the 50 x 50 grid 
where you wish to start your text. 

Next, Enter< ' > and up to 28 characters. Press ENTER to 
transfer text to the grid. 



2. DATA. Position cursor type data and press ENTER, 
data may be entered directly. 



Numerical 
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3. FORMULAE. Enter these directly. Position cursor to box which 
will print the result of the formula. The answer will appear 
in the chosen box with the formula appearing just under the 
box and to its left. Returning to this box will display the 
formula. 

.Syntax of a formula: constants (numbers), references to 
numbers in other boxes and simple arithmetical operators +, 
-, /, and *. Refer to other boxes by their coordinates, rc 
where < r > is the row letter (s) and < c > is the column 
number, 
eg. BUI. 03 
D7-C7 

D12*(B2+1.5)/C1 

.A formula can be applied to rows or columns of numbers by 
using the Repaat Command (see below). 

.Sum facility enables you to add a row or column or part 
thereof or a rectangular block of boxes. 
Use the form &f:l where f=top left hand box 

and l=bottom right hand box. 
Note box f must always be above and/or the the left of the 
box reference. 

eg. &A2:B4 (sums boxes A2+A3+A4+B2+B3+B4) 
&C3SC10 (suras row G to CIO) 
&B5:D5 (sums column B5 fo D5) 

4. COMMANDS. P-ess < # > and the two line command panel appears. 
*B - Blank: to delete contents of current box 

ready for updated data . 
K -- Calculate: Recalculates entire table after entering new 

or changed data, etc. 
«E — Edit: Allows formula to be changed. If this is not done 
faithfully, formula capacity will be needlessly wasted. 
NB. There is no provision far deleting a formula and 
thereby restoring the capacity by one. 
*F,c,f,j — Format, Format, column, format-type, justified: 
Determines how a number will be shown in a given col. 
Defined by three parameters — c,f, and j 
c = one or two digit number) or << A > ie, all 

specifying a column ) < for entire table 
f = format type required i = integer 

$ = two decimal places 
g = general 

j = justified 1 = left 
r = right 

*6,rc — GO TO box designated by row r and col c. 

•\l - Load ;ht- '"'m disk. Type in file name with po 
flnt^nsion. iaxiension is always < .lV >. ^ 

3 4 



2002 LET xs=7 

2003 IF s$=V THEN LET xs=8 

2004 LET end=PI-Pl: INPUT "No. o 
f cols 'Jx: LET x=x*xs 

2008 GO SUB 1000: OUT 127,27: GO 
SUB 1000: OUT 127,80: GO SUB 10 

00: OUT 127,18 

2009 IF x>120 THEN PRINT 'too m 
any columns": PAUSE 60: GO TO 20 
00 

2010 IF x>75 THEN OUT 127,15 
2020 INPUT "start at col? (1 TO 
50)" ;y: LET y=y-SGN PI 

2030 INPUT "start at row? (a TO 
ax)"?z$ 

2035 IF LEN z*=SGN PI THEN LET 
z*=" "+z* 

2040 IF z*(2)= ,,, THEN LET h=C0D 
E z$(l)-97 

2050 IF z*(2)<>*" THEN LET h=(C 
ODE z$(2)-?7)+(26 AND z*(l)=V) 

2052 IF end THEN LET r=h: RETUR 
N 

2055 LET z=h 

2060 INPUT "End at row? ("!CHR$ 
(h+?B);" TO ax)'5z*: LET end*5GN 
Pi: GO SUB 2035 
2063 INPUT "paper eject? l=yes 0 
=no "; eject 

2065 LET r=r-z: IF r<=PI-PI THEN 

GO TO 2060 
2070 LET q=34573+(7*y)+(350*z) 
2072 IF xs=B THEN LET le=x-l-(x 
/8) 

2074 IF xs=7 THEN LET le=x-l 

2075 LPRINT CHR$ 10 

2080 FOR f=q TO q+(r*350) STEP 3 
50 

2070 FOR g=Q TO le 

2100 LPRINT CHR$ PEEK (f+g)? 

2105 IF xs=8 AND (g+l)/7=INT Ug 

M)H) THEN LPRINT ' 

2110 NEXT g 

2120 LPRINT CHR$ 10 

2130 NEXT f 

2135 IF eject THEN OUT 127,12 
2137 LPRINT 
2140 RETURN 



WANTED— Your Contribution 

Most articles and programs In UPDATE are 
contributed by the Subscribers. We Sinclair Users 
support each other like no other user group. We 
survive upon INWARD CONTRIBUTING SUPPORT. If you 
have a good program or utility, let Update 
Magazine give It to others who need It. We dont 
care If you dangle a partlcutlcal or two In your 
prose, and we aren't particular about the format. 
Its the programming that counts! -and the 
participation. 
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#P -- Print a copy to the wide printer. 

HQ -- Quit and 1. exit the program. ) 

2. clear the worksheet. ) 

3. resume vu-calc operation. ) press ENTER 

4. save/load data via tape. ) 

5. view help files. ) 

#R,rcif!l -- Repeat contents of box rc over range of boxes 
which may be a row or column or part thereof or a 
rectangular block of boxes. It means! "repeat contents 
of box rc in all boxes from <f>irst to <l>ast" 
Similar to Sum Facility above. 

Also repeats a formula for box rc across a row or down 

a column but not oyer a block of boxes. 

eg, if box A2 has formula < 1.03*A1 > then #R,A2,A3:A10 

will automatically increase the value of A in the 

formula by 1 for each succeeding box. 

Thus box A3 would have formula < 1.03*A2 >; 

box A4 would have formula < 1.03*A3 >; etc 



For columns, the letter would increase -- B to C, C fo 
D, etc, as the formula moved down the column. 
Prefix a box reference with < $ > to render it an 
absolute box which does not change when repeated. 

In the above example, the formula l.Q3**Al, when 
applied to any box in row A would remain the same. 

#S Save file to disk, without specifying the extension, 
which will be < .CV >. Upon completion of the save, the 
program with all data intact will return to the screen. 

#T,r(or c),r(or c) — Transfer a row or column defined in the 
first parameter to the row or column defined by the 
second parameter. A row cannot be copied to a column or 
vice versa. 

5. If a formula is entered which references a blank box or a box 
with text rather than data, the program will stop with an error 
report. 60 TO 9000 and press < ENTER >. The display will return 
to the table and you may continue. 



Editors Note: The "Mitchell VC Disk" contains: <1> Operating Listing 1, <2> Operating 
Compiled Listing 2, <3> Un-compiled Listing 2 for user adaptations, <3> Supporting Code, 
<4> A Saved sample View Calc Spreadsheet for an example to work with. Update advises 
all to obtain a View Calc Cassette from your dealer to have the original back up program 
and the manual. You can likely buy it for less than $16.00. The disk update of this 
software makes it a very nice addition to anyone's computing capability. 
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_ (Sinclair Milwaukee User Group) is a 
Sinclair user group that has been active since 
early 1983. We currently have a membership of 
30 active Sinclairites . We meet once a month 
all year long on the 1st Wednesday of the 
month. We have 4 SIGS, games, hardware, 
Spectrum/QL and "C". The SIGS meet at various 
times of the month and are a great way to gain 
information on a specific subject. The club 
sponsers educational classes on 
subjects. Our address is SMUG P.O. 
Butler WI 53007. 

We have all models of the 
family, except for the Z88, in the 
our main thrust is the TS2068 and the QL. Our 
disk systems consist of the AERCO and the 
Oliger. Our printers are varied we have 80 
col. to 135 col. we even have a laser printer 
in the group, although it is not on a Sinclair 
computer. There are a few owners of the 
Westridge 2050 modem with some faster modems 
on the QL. 

We publish a monthly newsletter called 
SMUG Bytes. The subscription rate is $10 per 
year. We also exchange the newsletter with 
over 20 groups throughout the US and Canada. 



varying 
Box 101 



Sinclair 
club but 



Source for 3" Diskettes for Andisk III ij 

3" Diskettes: 10 for $40.00+ $2.50 postage. 
Check or Money order to: Herb Moulds, PO Box 
312, Lathrop Village, MI 48076. (313 533 8797) 



JULY 1989 -7 c UPDATE MAGAZINE 



UPDATE MAGAZIN3 



JULY 1989 



CHARLES E RE J . SE 
761 4 LOVELLA 
ST. LOUIS, Ml) 



BILL JONES 
UPDATE MAGAZINE 
1317 STRATFORD AVE 
PANAMA CITY, FT 324U4 



DEAR BILL, 

ENCI OSED ARE INSTRUCTIONS FOR SETT ING UP CHECK BALANCING USING QL ABA 
(US POGRAM ALSO SOME GENERAL INSTRUCTIONS FOR ENTERING WHAT WHERE WHY 
AND HOW HOPE THEY ARE WRITTEN IN AN UNDERSTANDABLE MANNER 

SEASONS BREE TINGS 



CHARLES E. RE 1 SE 



P S MAY YOUR CHECKBOOK BALANCE FOREVER . 



SPITING Up ABACUS FOR MONTHLY CHECKING ACCOUNT 
INSERT SS IN MDVI PRESS FT 10 LOAD THIS IS, IF YOU ARE USING A 
A MONITOR THE LARGE AREA IN THE CENTER IS THE GRID COLUMNS ARE 
I E l l FRED ROWS ARE NUMBERED THE CURSOR IS IN CELL A1 . CLOUMNb ARE 
1 1 ) CHARACIERS WIDE ONE CHARACTER SPACE BETWEEN EACH COLUMN ONLY 
SFVFN ARE SHOW J NGU HERE ARE 64 > AND THEY MAY BE VARIED IN WIDTH, 
FROM 1 TO 66 CHARACTERS f HE RE ARE 25S ROWS DIRECTIONS FOR 8ET- 
f ING UP FOLLOW 

CRESS G W 8 ENTER ENTER ENTER RIGHT ARROW 
PRESS F3 G W 9 EN1ER ENTER ENTER RIGHT ARROW 
PRESS F3 6 W 6 ENTER ENTER ENTER RIGHT ARROW 
PRPSS F3 G W 8 ENTER ENTER ENTER RIGHT ARROW 
PRESS F3 G W 9 ENTER ENTER ENIER RIGHT ARROW 
PRESS r-3 G W 9 ENTER ENTER ENTER RIGHT ARROW 
PRESS FS G W 9 ENTER ENTER ENTER RIGHT ARROW 

I FAVF ( EM HI AS IS YOU NOW HAVE EIGHT COLUMNS PRESS F5 Bl ENT- 
ER CURSOR IS NOW IN CELL Bl CELL A1 WILL BE FOR DATE, WHICH MUST 
BE ENTERED AS TEXT (SHIFT QUOT AT ION (LATER . "12/25/88. ALL 1EX1 EN1 - 
R I E S M*. IS T BF F N I F RF 0 I N T IT I S MANNER 

YOU* ARE IN'Bl" TYPE IN AS TEXT "CK NUM ENTER GO 10 D I ( R TGHT ARROW ) 
TWICE ENTER IN 01 TO -WHICH MEANS TO WHOM CHECK TS WRITTEN 

THIS IS HIST A I ARE I FOR El WHERE 1 HE NAME WILL BE ENTERED F1 
Will" BE RANK TYPE IN BAI FORW IN Gl PUT A ZERO < U > IN HI. NUM- 
BERS AND FORMULAE ENTERED IN A CELL SHOULD NOT BE PRECEEDED BY 
xl-IIFl tjl 10 1 A I T UN HIST ENTER THEM AND PRESS ENTER. 

NOW TO ROW 2 PRESS FS A 2 ENIER ARE YOU THERE? CELL A2, C2 , E2, 

ARE I ABELS FUR 82, 02, AND F2 THEY ARE CALLED DEP...1 , DEP 2, AND 

OFF- s RESPECTIVE I Y THE ACTUAL FIGURES WILL BE ENTERED IN B2 , 02, 
AND~F2 G2 WILL BE LABELED INT AND WILL BE ENTERED IN H2 FOR NOW, 
ENTER LABELS IN THEIR RESPECTIVE CELLS, AND 0 IN B2, D2, F2, AND 

CPU A3, <F5 A 3) REMEMBER!! TEXT, TOT. BAL , RIGHT ARROW, U, RIGHT 
ARROW, RIGHT ARROW WHERE ARE YOU? 03. TYPE CK.AMT, GO TO E3, TYPE 
o SKIP F3 IN G3 TYPE FORW BAL, THEN IN H3, O. 
PRESS FS A 4 TOT DE.PS B4 O, Cd BLANK, D4 TOT„CKS, 
CKS, G4 1 , HA ********** . 

GO T O ( FK) A 5 T YPE ROW-REP T ( " - " , W I D T H «. > + 1 > EN TER . 
GO TO AG, PRESS F3 C ENTER ENTER 
GO TO A1, PRESS F3 J ENTER R ENTER ENTER 
PRE SS F3 O ENTER ENIER. CHANGE RANGE TO Bl;89 ENTER. 
PRFSS F3 U ENTER ENTER CHANGE RANGE TO D1IF9 ENTER 
PRFSS F3 U ENTER ENTER. CHANGE RANGE TO HHH9 ENTER 

CELL FORMULAE 

ENTER THESE FORMULAE IN CORRESPONDING CELLS 



E4 0, F4 # OF 



GO 10 D1 . 

60 TO HI . 



--HL+B2+D2 J-F2+H2 
B2+D2+F2+H2 



-C i 



t 1 



83- 
84- 
C6- 

B8- — H6+B7+D7+F 7 + H7 

89 B A t B7 + D 7+ F 7+H / 

GO TO All PRESS F3 
WILL COPY CHECK 



H3 B3-E3 

E4 E3+0 

H6 H3+0 

H8 B8-E8 

E9 E8+E4 

C. CHANGE RANGE TO A6:A10 
TO CHECK # 3 MOVE TO A16 



39 G4+ 1 

ENTER ENTER THIS 
COPY CHECK # 3 TO 



TTECK # 19 HAS BEEN COPIED YOU 



CONTINUE THIS PROCEDURE UNTIL 
NOW HAVE 2U CHECKS FOR THE MONTH 

PI ACE FORMATTED MDV IN MDV2 PRESS F3 S TYPE TAN ENTER THEN SAVE 
E F , s FEB FNTFR-F3 S MAR ENTER-F3 S APR ENTER— F 3 S ENTER MAY- 
F s"s TUNE ENTER WILL FILL ONE CARTRIDGE. JUST REMOVE AND INSERT 
ANOTHER TO CONTINUE THROUGH THE REST OF THE YEAR 
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The Sinclair QL 
fkihtbr sbt-up Intermediate Programming 

By Walt Horn Is 



1NTEODUCTIOB 

Many programs have been written for setting up a printer. I 
find this program useful for printing basic files in the 
character setting desired with the margin/line format I choose. 

1 use this program primarily for printing basic files. I use 
it n lot for printing downloaded files and Easyplex messages 
from Compuserve. The program uses a different type of menu which 
you may find interesting. It is a basic version of tbe "Pull- 
Down" menu structure. I use the program quite often with QUILL. 
Use caution, however in setting the margin/line functions so 
they do not conflict with the same functions in QUILL. Vith 
minor program changes, this program can print multiple copies. 

PROGRAM OPERATION 

When the program is loaded and run, you are presented with a menu 
of four margin/line choices, fallowed by six choices of character 
settings. The top menu item is highlighted. 

The up and down cursor keys select a menu item which will b * 
highlighted. To initiate action on this selection, press <EHTER> . 
Additional instructions will be presented below the menu box. 

In the case of margin/line functions, enter the value desired, 
press <BBTER> and the value entered will be posted opposite tlie 
menu item. For the character setting choice, press <EBTBR>, and 
the instruction <F1>-"0R" <F2>-"0FF" is displayed below the 
menu box. Selecting the desired key will post its function 
opposite the menu item. (Botes " OFF" is a blank). The up and 
down cursor keys can be used to change or correct any selection. 

After the desired margin/line and character settings are selected, 
press <F5> to send the commands to the printer. (printer is 
assumed on). A further message will appear below the menu box 
stating: "Printer codes have been entered as selected", " Do you 
wish to print a file ? (y/n)". Selecting "y" will produce a 
request of: "Enter device " (enter mdv or flp desired. Bote the 
" " after the device is not needed). After entering the device, 
the request of: " Enter file name » appears. After entering the 
file name, the file will be printed with the margin/line and 
character settings selected. When the printing is complete, a 
message will state: "Printing complete (re.-run for further use) . 

if "fl" is selected when asked if you desire to print a file, the 
message: "PROGRAM TERMINATED" is displayed, followed in two 
seconds by the restoration of the program windows to the turn-on 
default windows and the clearing of the program. The program is 
not "crash proof". Should this occur, Just re-run. 
The program listing contains information on the functions of 
each listing biock; however, additional information is 
presented below: 



Line 



5 to 00 Program initialization, sets windows, 

variables, and prints menu. 

1<D5 to 180 Provides menu selection by changing 

highlighted menu item. 
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205 to 275 Toggle functions ("OB" -"OFF" ) for 

character settings. 

305 to 365 Printer character commands. 

Note. These codes are for a QL printer. 
Change to suit your printer. 

405 to 455 Message commands and input requests. 

505 to 530 Data (Menu items). 

G05 to 605 Procedures. (These were used to make the 

listing less cluttered). 

I have used this PRINTER SET-UP program for some time, and i 
find it quite useful. I would appreciate any comments, either to 
my CIS number contained in the program, or to my address! 
6664 Sturbridge Dr. Cincinnati, OH 45236. Please include 
a SASB if a reply is requested. 



5 REMark , 

10 REMark ! Printer Set-up Program 

15 REMark ! By Walt Horais - CIS #71641,664 ! 

20 REMark — 

25 REHark ********** Initialization ********** 

30 CLGAR: RESTORE : WINDOW 512,202,0,0: PAPER 0: BORDER 1,2: CLS 

35 OPEN #3,ser: PRINT #3, CHR$ (27) ; "«" : PRINT #3,CHR*(24>: CLOSE #3 

40 STRIP 0: AT 1,29: INK 6: PRINT "PRINTER FORMAT" 

45 DIM a$(10,26): x=l: y=3: p=l: rm=0: lm=0: pg=0: sk=0: e=0 

50 1=0: b=0: h=0: pr=0: ds=0: g=0: k=0: 1=0: r=0 

55 READ aSU), aS(2), a$(3), ai(4), aS(5) 

60 READ a$(6), a$(7), a$(6), aS(9), a$(10): STRIP 6: INK 0 

65 AT 3,23: PRINT a$(l): STRIP 4: AT 4,23: PRINT a$(2) 

70 AT 5,23: PRINT a$(3): AT 6,23: PRINT a$(4): AT 7,23: PRINT a*(5) 

75 AT 6,23: PRINT aJ(6): AT 9,23: PRINT a$(7): AT 10,23: PRINT a$(8) 

80 AT 11,23: PRINT a*(9): AT 12,23: PRINT a«U0) 

105 REMark ********** Menu Selection ********** 

110 REPeat loop 

115 LET z=CODB(INKEY*(-l)): SELect ON z 



120 =206: IF x= 1 

125 GO TO 110 

130 ELSE : x=x-l: y=y-l: p-p-1: STRIP 6: AT y,23 

135 PRINT a$(x): STRIP 4: AT y+1,23: PRINT a$(x+l) 

140 =216: IF x=10 

145 STRIP Q; M y,23; PRIKT a$(x) 

150 ELSE : x=x+l: y=y+l: p=p+l: STRIP 6: AT y,23 

155 PRINT ai(x): STRIP 4: AT y-1,23: PRINT a*(x-l) 

160 = 10: IF p=l: flip: clr: pi: INPUT"Enter Right Margin ";r: 

IF r>0: rm=l:clr: pu: PRINT r: flop 

105 IF p=2: flip: clr: pi: INPUT"Enter Left Margin "lis 

IF 1>0: IjifI: clr: pu: PRINT 1: flop 

170 IF p=3: flip: clr: pi: INPUT"Enter Page Length ";g: 

IF g>0: pg=l: clr: pu: PRINT g: flop 

175 IF p=4: flip: clr: pi: INPUT" enter Skip Lines . ";k: 

IF k >0: sk=l: clr: pu: PRINT k: flop 

180 IF p=5 OR p=6 OR p=7 OR p=8 OR p=9 OR p=10i flip: pi 5 Info: flop 

205 REMark ********** Toggle Function ********** 

210 =232: num: flip: clr: mark: c=l: flop: REMark <F1>- ON 

215 IF p=5 AND c=l: e=l 

220 IF p=6 AND c=l: 1=1 

225 IF p=7 AND c=l: b=l 

230 IF p=8 AND c=l: h=l 

235 IF p=9 AND c=l: pr=l 

240 IF p=10 AND c=l: ds=l 

245 =236: num: flip: clr: rub: c=0: flop: REMark <F2>- OFF 
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250 
205 
200 
205 
270 
275 
305 
:310 
315 
320 
325 
330 
335 
310 
345 
350 
355 
300 
305 
405 
4 10 
415 
420 
425 
430 
435 
4 40 
445 
4 40 
4150 
45) 
452 
453 
454 
455 
505 
510 
515 
520 
525 
530 
605 
610 
015 
020 
025 
030 
635 
040 
045 
600 
055 
660 
065 



IF p=5 AND c=0: e=0 
IP p=6 AND c=0: i=0 
IF p=7 AND c=0: b=0 
IF p=8 AND c=0: h=0 
IF p=9 AND c=0: pr=0 
IF p=10 AND c=0! ds=0 
RBMark ########## Cade Selection 
=248: OPEN #3,ser 

IF rm=l: PRINT #3, CHR* (27) ; "Q" ; CI1R* (r) ; 
IF 1jb=1: PRINT »3, CHR* (27 ) j " 1" ; CHR$ (1 > ; 
IF p*=l: PRINT #3, CURS (27) ; "C" ; CHRMr) i 
IF Bk=l: PRINT #3, CHRiK27);"N";CHR»(k); 
IF e=l: PRINT #3, CHRi (27) ; "M" ; 
IF 1=1: PRINT #3, CHRi(27); M 4"; 
IF b=l: PRINT #3, CHR4 (27) ; "B" ; 
IF h=l: PRINT (73, CHR$ (27) ; "xl" ; 
II' pr=l: PRINT #3, CHR4 <27) ; "pi" ; 
IF ds=J: PRINT #3, CURS (27) ; "G" ; 

CLOSE #3 

RFNark Commands #ttttHMHHil» 

AT 15,15: PRINT " Printer codes have been entered as selected 
AT 17,10: PRINT" Do you wish to print a file ? (y/n) 
=09,121: STRIP 0: AT 17,18: PRINT " 
AT 15,15: PRINT " 
AT 17,23: INK 6: INPUT "Filter Device: " ; dev* 

AT 10,23: INPUT "Enter file name: ";fil* 
COPY N devM" "Mil* TO serl 

CLS:"AT 9,20: PRlNTPrintlng complete (re-run for further use) 
BEEP 1500,25: EXIT loop 

-70,110: CLS: AT 9,20: CSIZE 2,1: PRINT " Program lermlnated 
BEEP 1500,25: CSIZE 0,0: PAUSE 120 
VIND0V #2,250,202,0,0: PAPER #2,0: INK #2,2 
BORDER 1,6,0: CLS: WINDOW 256,202,256,0: PAPER 2 
INK 6: BORDER 1,0,0: CLS: NEW 
: END SELect : END REPeat loop 

ttanunttnimti Data #u*nintitnit# 



(10-00)' 
-66)' 



Right Margin 
Page Length 
Elite Character 
Bold Character * 
Proportional 
MWMtWmi Procedures 



Left Margin 
, " Skip Lines 
," Italic Character 
,'• High Quality 
," Double Strike 
MM****** 



( 0-70) 



END IF 
REIlark 
DATA " 
DATA " 
DATA " 
DATA " 
DATA '» 

REMark ww-w-w*. 

DEFine PROCedure flip: STRIP 0: INK 6: END DBF ins 
DEFine PROCedure flop: STRIP 4: INK 0: END DEFine 
DEFine PROCedure clr: pi: PRINT- 
END DEFine 

DEFine PROCedure mark: pu: PRINT'ON': c=l: END DEFine 

DEFine PROCedure rub: pu: PRINT " ": c=0: END DEFine 

DEFine PROCedure pu: AT pl2,53: END DEFine 

DEFine PROCedure pi: AT 14,23: END DEFine 

DEFine PROCedure info: PRINT' <F1>-"0N" <F2>-"0FF" 

BHD DEFine nn n Mn 

DEFine PROCedure num: IF p=5 OR p=6 OR p=7 OR p=8 OR p=9 OR p=10 

BHD DEFine 



--- LISTSCAfl — 
By Walt Horais 



INTRODUCTION 

I am "well over 40" years of age, and often when writing a basic 
program, 1 find that my memory is a bit hazy on just how to write a 
desired program segment. Often, I have written that segment before, 
ond I examine program listings to find it. 

The "list" command on the QL is not the easiest to use when examining 



JULY 1989 



3.9 



UPDATE MAGAZINE 



UPDATE MAGAZINE 



IWWBS-I=I 



JULY 1989 



a listing for a specific segment. When you see the segment scroll by, 
if you can note its listing numbers, you can list those numbers to a 
printer. 1 desired a more efficient way to examine and print segments 
of a program listing; this prompted me to write the LISTSCAN program, 

1 attempt to write programs in segments of 100 line numbers, in 5 
digit increments <20 lines will fit nicely on the QL display). This 
results in a program segment that is easy to display and print. 
The LISTSCAM program is written in basic, located at line number 30,000. 
This enables quite lengthy programs to be merged and examined. 

PROGRAM OPERATION 

Once the LISTSCAN program is loaded and run, a window will be displayed 
with the request: "Enter device » (enter mdv or flp). Note the "_" after 
the device is not needed. After entering the device, a request of 
"Enter file name " is displayed. After entering the file name, the 
program starts. BE PATIENT ! The program is slow, particularly on 
long programs. After a program to be examined is merged, the LISTSCAN 
program determines the lowest line number and the highest line number. 
This is done to handle different starting line numbers, and stop the 
program from "running away" after the highest line number. 

Finally, the first block of listing is displayed, with a menu stating: 
"<f>orward <b)ack <p)rint <n>ew file and <q>uit". <f>orward and 
<b>ack move the displayed listing block by 100 line numbers. <p>rint 
will print a displayed listing to your printer. <n>ew file is just 
that; and you are returned to the initial screen request of "Enter 
device" and "Enter file name". <q>uit restores the program windows 
to the turn-on default windows and clears the program. 

Upon reaching the highest line number display, attempts to continue 
higher will result in a beep and the message: "Highest display", with 
a return to the highest number display. The same sequence occurs at 
the lowest display except the message states: "Lowest display". 
The program is not "crash proof", but if it does crash while examining 
a listing, it can be re-run. But before doing so, all listing lines of 
the program being examined must be deleted. (dllne first to last, 
followed by run works nicely). 

COMMENTS 

The program listing contains information on the function of each 
listing block; however, ad«UUon.al lnform&UPjfc is pres»*t«d below: 

Llne Sanction 

3O005 to 30090 Program initialization, sets windows, defines 

device and file names, determines lowest and 
highest line numbers. 

30105 to 30190 Prints menu, selects higher or lower displays, 

(<f>orward or <b>ack), sounds alert and prints 
display limits. 

30205 to 30240 Menu commands of: <p>rint, <n>ew file, <q>uit. 

30305 to 30330 Procedures (used to make the program less 

cluttered) . 

i hope you will find this program useful. 1 would appreciate any 
comments either to my CIS number contained in the program, or to my 
addr^ssf 8664 1 Sturbridge Dr., Cincinnati, OH 45236. Please include 
a SASB if a reply is requested. 
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30010 
30015 
30020 
30025 
30030 
3O015 
30050 
30055 
30060 
30065 
30070 
30075 



Listing Scan Program 
By Wait llorals - CIS # 71641,664 



30005 
30090 
30105 
30110 
30115 
30120 
30125 
30130 
30135 
30.140 
30115 
30150 
30155 
30160 
30165 
30170 
30175 
30180 
30185 
30190 
30205 
30210 
30215 
30220 
30225 
30230 
30235 
30240 
30305 
30310 
30315 
30320 
30325 
30330 



first: f=first 



########## 



<b)ack 
<q>uit 



IKK #5,6 
<p>rint 



KB Hark 
REMark ! 
RBMark ! 
REMark 

RBMark ########## Initialization ########## 

DIM dev$(5>: DIM f 114(15): WINDOW 512,256,0,0: PAPER 0: CLS 

OPEN 04, scr_512x202a0,0: PAPER #4,4: INK #4,0 

BORDER #4,1,6: CLS #4 

AT 0,20: PAPER 4: INK 0: INPUT, "Enter device: " ; dev$ 

AT 10,20: INPUT, "Enter f ile name: «*;filS 
MERGE dev$&"_"&f 11$ 
OPEN #3, devSkV J'&filS: INPUT #3, 
REPeat loop 

IF EOF (#3) THEN EXIT loop 

INPUT #3, last! l=last 
END REPeat loop: CLOSE #3 
REMark ########## Display List 
OPEN #5, scr_5 12xl2a0:t204: PAPER #5,0: 
BORDER #5, 1,6: CLS #5 
AT #5,0,16: PRINT #5," <f>orward 
AT #5,0,44: PRINT #5," <n>ew file 
CLS #4: dsp 
REPeat loop 

z=CODE<IHKEYt<-D): SELect ON z 
=70, 102: CLS #4 

IF fh95>l 

snd: PRINT #4," Highest Display 
ELSE 

f=f+95: dsp 
= 66,98: CLS #4 

IF f=flrst 

snd: PRINT #4," Lowest Display " 
ELSE 

f=f-95: dsp 

REMark ########## Other Commands ########## 
=80,112: OPEN #3,ser: LIST #3, f TO f+95: CLOSE #3 
=78,110: WINDOW 512,256,0,0: PAPER 0! PAPER #2,0: INK #2,0: 
DLINE first TO last: CLEAR: RUN 
WINDOW 256,202,0,0: PAPER #2,6: INK #2,2 
BORDER 1,6,0: CLS: WINDOW 256,202,256,0: PAPER 2 
INK 6: BORDER 1,6,0: CLS: NEW 
END IF : END SELect : END REPeat loop: NEW 
REMark ########## Procedures ########## 
DEFine PROCedure snd: BEEP 2000,35: AT #4,18,30: PAPER #4,2 
END DEFine 

DEFine PROCedure rst: PAUSE 60: PAPER #4,4: CLS #4 
LIST #4, f TO f+95! END DEFine 

DEFine PROCedure dsp: LIST #4, f TO M95: BND DEFine 



rst: GO TO 30135 



rst: PAPER #4,4 



=81, 113: 




Comento: 

Old folks never die. 
They just Forget. 
(Methuselah) 



Please renew NOW. All 1988 subscriptions 
expire with this issue. 

1990 year of issues begin with the next issue 
(Oct. 88). Subscription $18.00 per year. 
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Hob lltir tune 
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KbvoioI menu loader options are provided In thin 
utility lantie mdv/dlnk. The BOOT routine 1b a 
tt tr lap defined menu which contains only the file 
nnmen for SuporBanlc prosmmn which will run from 
drive I by pressing Just the one key 0-9 or a-2 
(lower-case only). If upper -cane A la keyed the 
piompt will then aBk for the code- key of the Item 
to be added or changed- The nelected ntrlng- 
deflnJtlon line will then be brought Into editing 
mode for Inner t Ion of the desired file name- 
Keying <nv> will re- save the revised menu an BOOT 
to drive I • For TOOLKIT or TRUMP CARD users, If 
your file names contain only alphabetic characters 
(no numerals) line MO may be revised to the; 
default syntax, LRUN o$(slc). While QL file names 
nie not limited In length, because of the display 
format thin loader accepts names of up to M 
character;?. The other loader routines accept up to 
24 . 

Whan MENU load In Installed as the BOOT routine it 
will save as cat. dot the directory of the medJa in 
drive I. which will then be displayed as a menu on 
boo l -up. Arty lower-case key may bo used to run the 
cursor through the page(n) Hated. Keying <ENTER> 
will load the program at the cursor. The catalog 
data way be updated by keying upper -case N - Keying 
<sv> will save MENUload to dr ive 1 as BOOT. Since 
I his loader dlnplays all file nnmen, for media 
containing a few master programn that draw exten- 
sively on data files It may be loss confusing to 
uno either the s tr lng-dof lni tion loader or else 
xMENUload. xMENUload is a version of MliNUload 
which dlnplays only those fllo names saved with 
the prefix x, Jo: xNAME . 

The OLdox routine is similar to the 2068 0OSDEX 
and allows saving directories from media in drive 
I to un index medium In drive 2 on which QLdex 
exists an a routine. Keying S will make consecu- 
tively numbered naves as cat_l, cat_2, etc. of the 
respective directories. N may be keyed to change 
l ho number of the Next directory to Load, or to 
update by a now Save. Keying either lower or upper 
case L will Load the Next-numbered catulog for 
display. Any other lower-cane key moves the cursor 
through the pnge(s). Keying <ENTER> will LRUN the 
title at the cursor if the medium on which it 
exists Is In drive !< Like xMENUload, xQLdex 
displays only those file names saved with an x 
prefix. 

TKTmenuMCR Is a limited f lie- manugemen t utility 
for TOOLKIT II and TRUMP CARD users. Its file 
directory uses the name data as MKNUload and 

directories as QLdex and xQLdeJt. Line 370 In these 
loutlnon may be re-defined if denlred to eliminate 

keying in the drive no. before each file loading. 

IT the prlntor in on-iiue, a hard copy will be 
made of directories and all HELP files as they are 
loaded In. The CATJ'RINT routine also prints out 
director ion from either drive. Since CA T„PR I NT 
naves then deletes a temporary cat_dta file, the 
media cannot be wri te-pro tected during this 
proconn. Printers that require an end-of-llne CR 
may neod either CUR* (10) or CIIR*(13) Inserted 

after, or Instead of, each ending PRINTitfn,... \ 
(bnck-olaeh character) In ell program listings. 

NOTE ! Because the behavior of WHEN ERRor can be 
unpredictable at times, It was not used in these 
routines. If n program stops with an, error it may 
he necessary to use both CLEAR and CLOSE ffn for 
any channels remaining open. TOOLKIT II allows 
just CLOSE to close all channels from ti3 upward. 
St Ill-open channels can result In "not found" and 
"changed oi bad medium" reports. 



CJ!l_.__I_l_ I ST 
This routine allows making an L.LI ST (printout) of 
any Battle tinting, with universal selection of 
left margin, column-width ■ and number of lines per 
page for any printer. Listings longer than one 
page- length will be continued where the preceding 
LL 1ST column left off for printing slde-by-sldo 
columns after the paper has been re-located In the 
printer. 0L_LLIST also allows a printout of data 
from DATA_FILE (but not from ADDRf He I ) . 

I NFOWR I TER 
This is a quite primitive wordprocessor which was 
used to write the HELP info files for the various 
programs on the issue mdv/dlsk. Text written by 
INFOWRITER may be used for auto-addressed form 
letters with formal or informal salutations when 
used with MERGEWR I TER and 0ATA_F1 LE . 

Option 0 from the menu loads a temporary work- 
file, MVflle, which may be overwritten, or edited 
for one-time use- Selection of ALL-NEW brings up 
n prompt to ask if you want to erase any file 
already in RAM (files such as MYflle that are In 
drive medio are unaffected). 

LOAD or SAVE selections first display a directory 
of existing fllen no you may choose whether or not 
to overwrite existing files. (MYflle. is always 
overwritten by a 0 selection at SAVE.) 

A previously -saved file may be loaded in for 
I.PRINT, editing, or adding to it at the next, open 
line if ADD TO is selected- In edit mode, $clone 
deletes the displayed line and increments to the 
following line. $open will Insert one open line 
preceding the displayed line- Use $ to for 
bocks tepplng and review of the format of previous 
I Ines • 

The LPR1NT routine contains a universal left- 
margin setting, but will require adaptation to 
your printer command codes if you desire to use 
fonts, etc. other than panel -selected or pre-set. 

DATA_F I L.E 
When first loaded, the asterisks appearing in the 
menu and the prompt in SET PRINTER serve as 
warnings that a file must first exist in DATA_F I LE 
before it can be added to, sorted, printed, etc! 
When starting an all-new file the first prompt 
will ask if you want to erase the file in RAM • 
(Flies in drive media are unaffected.) If y or Y 
is then entered you will be prompted to define (I) 
the number of fields to be formed for each file 
item, (2) the labels for these fields, and (3) the 
maximum number of characters allowed in each- 

Since the number and size of defined fields 
da tannines haw many at ray -Items can Imb (auto- 

watloally defined In RAM available, no larger 
values should be entered than necessary. Also, If 
you select the setprt option to LPRINT field 2 on 
the same line as field I, le, for title/first name 
then last name with one space between, you win 
want to label these fields accordingly. (Thin 
option also allows nor ting and re-order ing by last 
names • ) 

In entry mode, * to as a first entry will back step 
to re-enter ALL lines of that file item. -tstop as 

a first entry will halt input and go to the main 

menu • 

If LIST *. EDIT is nelected from the menu, each 
field of an item will be displayed with its label 
and a line no. UP /DOWN arrow keys scroll fllo 
items. Key ENTER to keep that item. $Btop as an 
input will halt the EDIT mode and return to the 
main menu. The character % as a first entry will 
delete ALL fields of that Item. The entry of a 
field-line code-character will allow revision of 
that field-line only, no for extennlvo revision of 
a file item it may be eaBler to enter % to delete 
it entirely, then return to the main menu with 
$stop, and select ADDITIONAL ENTRIES to re-enter 
it. Keying only ENTER in the edit REVISION mode 
will delete the line selected. 
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The SET PRINTER options allow (J) setting of a 
universal loft margin which works with all 
printers, (2) the FIF2 option of printing fields I 
and 2 on the same line or not, and (3) the 
selection of how many fields will be printed, 
Including I through the field no. selected- Phone 
non. and/or search/sort codes may be stored in 
rinal fleld(s) and not printed. Your printer-code 
sequences to set font. etc- may be inserted in 
line I 150. eg: 

1100 OPEN 07,seri: PRINT til ,CIIR$( 27 ) 5 "E": CLOSE 07 

In search mode, if y or Y is selected at the 

1. PR I NT y/n? prompt, any found items will be sent 
to tho printer in the format selected by SET 
PR INTER • The PAUSE condition In line 200 to allow 
for insertion of tho next envelope for addressing 
may be deleted for continuous label rolls or 
envelopes In web carriers, and line 320 re-deflned 
to insert the proper number of line feeds. The 
search word may be any consecutive set of 
characters. If n or N Is selected at the LPRINT 
y/n7 prompt, found Items are displayed Instead of 
going to the printer. Keying ENTER will continue 
the search, or y In response to the EDIT y? prompt 
will go to ED I T mode for that item, then resume 
the search mode. 

When RE-ORDER Is selected from the main menu, the 
options are (I) to select the field no. by which 
the sort will be done, and (2) set the number of 
bfigJjjnJaiK chaiacters in that field which will be 
compared. Because the SUM of all character -codes 
Is used by the QL for string comparisons, a re- 
ordering by more than, say, 4-5 character values 
may not produce the desired results in cases where 
one field with only 4 or 5 characters is compared 
with another that may have 15 or 20. 

In the listing, note that line 5 defines as named 
variables the location of various routines used. 
This allows using these names Instead of line nos. 
as In lines 520-610, and also allows ED name or 
EDIT name or AUTO name If you wish to examine a 
particular routine or experiment with making it a 
procedure. To avoid possible crashes, CLEAR before 
using TOOLKIT 11 ED mode with long listings 
containing large arrays, and BREAK after every 
screen-page of editing, especially on lines at the 
very bottom of the screen. Note that using RENUM 
may alter these locations so the program will not 
work unless line 5 is re-deflned accordingly. 

The displayed value for FREE MEMORY reflects the 
fact that after first dimensioning string arrays 
they all contain null characters, so allowance 
must be made for expansion of the array elements 
as they are written to. 

ADDR F" I 1- G 1 
This is a specialized version of DATA_FJLE and the 
MAIL PILE program that appeared in October 1988 
UPDATE • It is useful for name, address, phone no. 
files that do not require more than 6 fields of 32 
characters for each item (14 for state abbrevia- 
tion * 2 spaces ♦ up to 9-digit ZIP). 

The flolds are pre-defined so starting an all-new 
file takes you directly to the prompt for ITEM 1. 
Note that a first-entry of a number 1-5 followed 
by a first name will automatically do the printout 
with that title followed by the first name and the 
second name which has been entered in field-line 

2. A 9 may be followed by any other title entered 
In full and/or a first name (no space between the 
number and first name). 



Quick-entry of often- 
may also be made with 
P.O. field if lines 
revised to those you 



ised P-0-, state, and ZlPs 
i single-digit entry to the 
730-780 In the listing are 
most frequently use. The 



entry for state/ZIP may then be skipped with Just 
<ENTER>, or else P.O., state abbreviation, and ZIP 
entered in full if quick-entry digit Is not used. 
Sorting and re-ordering may bo done by either last 
names or by state/ZIP. See DATA_F I LE editing info. 



centered, and the 
from data in 



MERGEWR I TER 
This program is designed for merging text data 
formed by 1NF0WRITER with name and address files 
formed by DATA_P 1 LE to print all or selected 
address headers with personalized formal or 
Informal salutations picked up from the DATA_F I LE 
data. Your letterhead 1 
current date Is printed 
DATE*, let October I, 1989. 

Field I from DATA^FILE may hold a title such os 
Mr. or Ms. followed by the first name, with the 
second name In field two for last-name re- 
ordering, or else title and full name may be In 
field one. Title, first name, last name will then 
be printed out on one line for the address 
heading. The title with last name or Just the 
first name may be picked out of the file for 
either formal or informal salutation. 

Page numbering with footer text may be used with 
multiple-page formfeeds. All address data may be 
used to automatically print letters and then 
labels in the same order, or else selected names 
may be searched out and printed with corresponding 
JobelB in the same order as the letters. 



QSO^F I L.JE 
Thin is an adaptation of DATA_FILB for use an a 
logbook to enter date, time, frequency, signal 
ntrength, mode, comments and QSL response, with up 
to 30 QSOs each, Into a name/QTH/callslgn 
dntnbane. For an unexpnndod QL, there in room for 
fll stations per file (more with a reduced number 
of QSO entries. an in example included for 250 
n tat ions with 3 QSOs each). With RAM expansion, of 
course. the number of QSO entries for each may be 
increased' 

Pre-set and labeled fleldB of 31-character length 
each are provided for first name, last name and 
callslgn, address/QTH, and comments, with a I- 
dlglt designation for QSL cards sent/received. Br 
updating QSL Information in EDIT mode, 0 
nent/recelved percentage may be displayed. Also 
In EDIT mode or from SEARCH mode current QSO info 
may bo entered for a selected name/calls ign , or 
all data on file may be reviewed, updated, or 
edited by use ojf the four arrow-keys. Current 
date and time nro entered automatically for a QSO 
entry. 



Files may be re-ordered by any field . i*f*Boar ch may 
be made for any consecutive set of characters in a 
name, callslgn, or QUI. Found files may be either 
sent consecutively to the printer or displayed for 
review or adding a current QSO. 

QS0_F1LE wan written at the suggestion of Alan 
Trainer, WB4NVC. For further help or info in 
adapting it or any of the other issue programs to 
your particular needs, pleaae enclose SASE with 
your request to Bob Ilartung. For updating previous 
versions with the latest revlsloriB/correctlons, 
please include return pontage and a mdv cartridge 
containing your copy of the program(B). 



QL CAPS LOCK CONTROL 

While tho multi- tasking CAPS LOCK indicator In 
April UPDATE is a very useful utility, there are 
times, as in menu selections, when all that is 
needed la a way of ensuring that CAPS LOCK is in a 
known state. Line 1 below sets it OFF, and line 3 
sets it ON. Try RUN first to show this, then RUN 
2. — Bob Hartung -- 

1 POKE_W 163976,0 

2 PRINT #0;"CAPS LOCK ";: IF NOT PEEK_W( 1 63976 ) : 
PRINT #0;"OFF": ELSE PRINT #0;"ON" 

3 POKE_W 163976,-256 
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LKDOS TOOLS by the Half Dozen 

100 REM " LKDOS Print Tools #1-5" 

102 BORDER 0: PAPER 0: INK 7: CLS 

104 CLEAR : LET a=0: LET b=0: LET u$="" 

9800 REM #1. Initial Izatlon Routine 
9804 RANDOMIZE USR 100: OPEN /3,"lp"; PR 
INT #0;" Input Type of Inter face"' "< 1 > Ae 
rco-OI lger""'<2> Tasman ,M "<3> A & J": PA 
USE 0: LET zz=CODE INKEY$-49: IF zz>2 TH 
EN CLS ; GO TO 9804 
9806 RANDOMIZE USR 100: POKE 16096,zz 

9808 INPUT "Line Wldfh?»;Lw: RANDOMIZE U 
SR 100: POKE 16090, Lw-I 

9809 INPUT "Left Margin Tab?";Lm: RANDOM 
IZE USR iOO: POKE i6094,im 

9810 INPUT "<1> for Line Feed - <2> No L 
f";Lf: IF Lf<l OR Lf>2 THEN GO TO 9810 
9812 RANDOMIZE USR 100: POKE 16092,(10 A 
ND Lf=l)><0 AND Lf=2) 

9814 PRINT #0;"Turn OFF PRINTER, Re-Set 
Pr I ntersw I tches, then TURN Back ON. E 
N1ER when Done": P^yiEJ^L_JLPBlHI_l_CLi_ 
9818 FOR n=l TO 150 STEP 5: LPRINT "xxxx 
»;: NEXT n: LPRINT : REM Test print I In 
es 

9820 STOP 

9822 REM #2. CAT PRINT * Print a Disk C 
atalog 

9824 CLS : INPUT "Drive #";dn: RANDOMIZE 

USR 100: GO TO dn 
9826 RANDOMIZE USR 100: POKE 16090,31: R 
EM * Set I Ine to 32 Chrs 
9850 RANDOMIZE USR 100: OPEN #2,»lp": RA 
NDOMIZE USR 100: CAT "", s PRINT »: RANDO 
MIZE USR 100: CLOSE #2 
9860 PRINT AT 20,0; " Insta I I new Diskette 
iniQiiii to Quit, Any Key for N 
ext": PAUSE 0: CLS : LET z$=INKEY$: IF z 
$="9" OR z$="q" THEN GO TO 9864 
9862 GO TO 9826 

9864 STOP . 

9866 

9868 REM ** Sending String Data to Disk 

9869 REM #3. Create the U$ Data first 
* Use Caps Sym Shf to QUIT * Use ENTER f 
or starting new line 

9870 LET u$«="»: CLS : PRINT AT 20,0;"Tur 
n Disk ON, Enter a filenbr <1 to 5 onl 
y)": INPUT zz: GO SUB 9970+zz: CLS : LET 

u>»»v mi a&o* ilet mm hi 

T872 POKE 23611,220 

9874 IF PEEK 2361 K221 THEN GO TO 9874 
9876 LET c=PEEK 23560: POKE 23611,220 
9878 IF c»12 THEN GO TO 9890 
9880 IF c=13 THEN GO SUB 9940: GO SUB 9 
902: GO TO 9872 

9884 IF c=14 THEN 
06 

9885 PRINT AT 21,29;LEN u$;AT a,b;CHR$ c 
;: LET b=b+1: IF b=32 THEN GO SUB 9940 

9886 PRINT AT a,b;"_";: LET u$*u$+CHR$ c 

9888 GO TO 9872 

9090 LET u$ = u$( TO LEN u$-1): LET b=»b-1 : 

IF b»-1 THEN LET b<51: LET a=a-1 
9892 PRINT AT a,b;" ";: GO TO 9872 
9902 PRINT #5;u$: LET u$=»": PRINT AT 21 
,29;" ": RETURN 

9906 CLS : PRINT AT 20,0;"<1> Create Mor 
e Text"'"<2> QUI P': INPUT xx: IF xx=1 TH 
EN GO SUB 9940: GO TO 9872 



GO SUB 9902: GO TO 99 



A Fist Full of LKDOS TOOLS 

As more TS-2068 users become LKDOS users the questions 
roll In. Some are working "Max DOS" (with Ollger Dos), but 
most are Just getting their feet wetter with the rich LKDOS 
functions. Sometimes the process becomes a bit of a head 
scralchlng event. Update does not sell hair restoring 
lotion, but perhaps these utilities will have even better 
results. 

The LL I STING for "LKDOS TOOLS" contains a group of 
utilities, each headed by REM statements. Each of these 
utilities may be plucked out to make Individual sub-routines 
to MERGE to any BASIC program for their specific TOOL. 
There are no "rlde-ln Variables" and the ut I I i t I es are 
Independent. But there are a few vars that are re-used by 
the fol low on too! s. 

The first few lines are simple Screen set ups. Then 
Line 104 sets three vars that need "Fast Finding" by the 
utilities. When Initialized FIRST In the vars file, each 
subsequent use makes the programs run faster than If a large 
file must be searched for the vars values. 

TOOL #1, The LKDOS INITIALIZATION, begins at line 9800. 
When the computer Is turned ON, LKDOS Is asleep. The 
"Wake-Up" slap Is <RAND0M IZE USR 100: > fol lowed by a LK 
System Command. The LKDOS manual tells us that we can use 
<RAND0M IZE USR 100 :OPEN#4, "dd"> and from then on we can use 
<PRINT#4:> followed by a System Command. However, as we get 
Into "MAX DOS", the PR I NT #4 causes some conflicts. 
Actually, I find that It Is better to always Just use 
RANDOMIZE USR 100 before the System Commands, and never 
<0PEN#4,"dd">. Later, we will see that having channel 4 
OPEN for the PRINTI4 commands can result In "too many 
channels open" and cause some confusion. 

So, as this programmers personal preference, these 
utilities wont use PRINT#4 at a I 1 1 If you thought that 
PRINT#4 was an essential Ingredient for the soup then this 
should convince you, as there are many many LKDOS system 
commands and all are proceeded by RANDOMIZE USR 100. AND, 
channel #4 remains closed throughout. You can corrolate the 
POKES In line 9804 through 9898 with the LKDOS "Version 3 
EPR0M" manual. <0PEN#3, lp> wakes up the PRINTER CODE In the 
LKDOS EPR0M. At that time the key addresses In the LKDOS 
RAM chip are set to numbers that may or MAY NOT be suitable 
for your printer, or your desires. Beginning at line 9800 
and ending at line 9814 Is an Initialization routine that 
will fit Into your needs for all Basic Program, 

Mm next TOOL begins at line 9818 and Is simply a 
■"Proof Test* oT The Initialization routine. But note Ttie 
LPRINT at the end of line 9814. This Is necessary after the 
Initialization tools to reset the printer's carriage for th o 
new LEFT MARGIN. Most printers requires a*0FF and back ON 
for any switch settings that changes print style or margins. 
Line 9818 simply prints groups of five characters for you to 
easily check to see that your desired TAB and LINE WIDTH are 
correct. You ALWAYS POKE 16090 with ONE Number LESS than 
your desired line width. Also, I might mention that all of 
these system POKES require either RANDOMIZE USR 100 or PRINT 
#4 AHEAD of the POKE. 

In fact, all LKDOS commands require the RANDOMIZE or 
PRINT #4. This Is because the LKDOS system Is operating In 
an EXTRA MEMORY BANK, "the DOS BANK". So, RANDOM I ZE USR: or 
PRINT#4: causes a BANK SWITCHING caper In order to carry out 
the following LKDOS command. The LKDOS system opens up 
another bank of memory and uses I6K of that new bank of 
memory addresses. Later we may see more "chunks" of the 
LKDOS Bank used, but for now thats all of the noodles In 
that bowl of soup (16K). Half Is the EPR0M and the other 
half is RAM. 
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9908>RAND0MIZE USR 10Q;CL0SE £5:ST0P 
9918 STOP : REM #4. LPrlnt or View disk 
f I le 

9920 CLS : PRINT AT 20,0;"<1> View File 
<2> LPRINT File": INPUT xx: IF xx = l THEN 
GO TO 9928 

9924 CLS : PRINT AT 20,0;"Set Printer ON 
, Then ENTER": PAUSE 0: CLS : GO SUB 996 
0: REM * Send data to printer Instead of 
screen 

9928 CLS : LET u$="": GO SUB 9980+zz: RE 
M * Open disk file for INPUT to screen o 
r printer 

9930 ON ERR GO TO 9946: INPUT #5;u$: RE 
M * Bring In record from disk 
9932 IF xx=l THEN PRINT u$: REM * Pr 
Int this record and get next record from 
disk. 

9934 IF xx=2 THEN LPRINT u$: LET u$»"" 
9936 GO TO 9930 

9940 LET a=a+l: LET b=0: IF a>2l THEN P 

OKE 23692,255: LET a=2l 

9942 PRINT : PRINT " ";: RETURN 

9946 ON ERR RESET !~RANDOMIZE USR 100: 

CLOSE #5 

9950 STOP 

9952 GO TO 9920 _ 

9956 REM J5. Gosub Routine for quick for 
mat changes 

9960 CLS : INPUT "Input TAB ; " ; Lm : INPUT 
"Line Wldth";Lw: RANOOMIZE USR 100: POKE 
16094, Lm: RANDOMIZE USR 100: POKE 16090 
.Lw-1: LPR INT : RETURN 

9970 REM * Tell me how to Concatenate a 
number to OUT File? 

9971 RANDOMIZE USR 100: OPEN #5,"Dtal.A$ 
OUT » : RETURN 

9972 RANDOMIZE USR 100: OPEN #5,"Dta2.A$ 
OUT " : RETURN 

9973 RANDOMIZE USR 100:- OPEN /5,"Dta3.A$ 
OUT »: RETURN 

9974 RANDOMIZE USR 100: OPEN #5,"Dta4.A$ 
OUT »i RETURN 

9975 RANDOMIZE USR 100: OPEN #5,"Dta5.A$ 
OUT ": RETURN _ 

9981 RANDOMIZE USR 100: OPEN #5,"Dtal.A$ 
IN": RETURN 

9982 RANDOMIZE USR 100: OPEN #5,"Dta2.A$ 
IN ": RETURN 

9983 RANDOMIZE USR 100: OPEN #5,"Dta3.A$ 
IN ": RETURN 

9984 RANDOMIZE USR 100: OPEN #5,"Dta4.A$ 
IN "s RETURN 

9985 RANDOMIZE USR 100: OPEN #5,"Dta5.A$ 
IN ": RETURN . 



5 REM "CODE FINDER"** Adaptable 1o all 
TS-2068 systems ** Finds start and end a 
ddress, and byte length of any CODE progr 
am. 

10 BORDER 0: PAPER 0: INK 7: CLS : INPU 
T "Data Disk #?";dd: RANDOMIZE USR I00: G 
0 TO dd: RANDOMIZE USR 100: CAT "", : INPU 
T "File name";z$: RANDOMIZE USR 100: LOAD 
z$CODE 

20 CLS : PRINT "Searching for Starting 
Code Adr"«": FOR z=O0000 TO 65535 

30 IF PEEK z<>0 THEN PRINT "Code Start 
Is ";z: LET aa=z: GO TO 50 
40 NEXT z 

50 PRINT 1 11 "Searching for END Code Add 
ress": FOR z=65367 TO z STEP -1 

60 IF PEEK z<>0 THEN PRINT "End add res 
s=";z: GO TO 80 

70 NEXT z 

80 PRINT ""The byte length Is ";z-aa: 
JULY 51989 



The next LKDOS TOOL Is at line 9822 and Is a "CAT 
PRINTER". This lets you LPRINT a Disk Directory, another, 
and as many more as you would like to do, and from any drive 
In your system. You can get hard copies of all of your disk* 
In the library wl th th Is CAT PRINT utl 1 1 ty. Also, If you 
want to you can add <G0SUB 9960> Just after the line number 
of line 9026. Tills would let you set up TAB for the Cat 
Print In order to print double column catalogs. 

Tools 03 Is a very versatile group of functions. Flrsr 
It uses some of the "TS-2068 DATA INPUT" program's 
techniques. Thats the neat program that was presented In 
the April 89 Issue. Here It Is abbreviated to provide a 
fairly fast Input typing to a "Sequential Fl le SAVER". 
Actually this set of functions Is a "mini data base manager 
and printer". lerked toaether to demonstrate a method of 
creating managable SEQUENTIAL FILES In disk. The File Saver 
operates so slick that you dont even realize that the typed 
data Is going Into the disk file, and you wont believe that 
It Is until proven by the next TOOL. 

So, lets discuss whats happening between line 9869 and 
9908. First, the DATA INPUT section operates to INPUT dala 
from the keyboard. A "Character Counter" Is printed al the 
bottom Right corner of the screen. You can create "LINES of 
data by watching the counter as you type. For example. If 
you plan to print lines of 64 characters, then as the 
counter reaches near 64, touch ENTER. The cursor springs 
down to the start of the next line— B U T II What you 
wont believe Is that each time you touch ENTER, the previous 
line of data Is socked away In a Sequential Disk File! I 
Actually ALL data ABOVE the current line being typed are 
"DEAD LINES". They have all been saved to disk, and are 
retained on screen Just for your orientation. 

Back at line 9890 a "File # Is entered". Then a <G0 
SUB 9970 "OPENS a Sequential Disk File" with the name of 
"Dta" plus the file number. Example: file #1 will have the 
title of "Dta I. A $ OUT ". Thereafter each time ENTER Is 
touched, the data In U$, the typing buffer. Is saved to that 
file In disk. Lines 9872, 9874, and 9876 comprise the (now 
familiar) "Peek K State" INPUT typing function for reading 
the keyboard and assigning the key struck code to var c. If 
the key Is DELETE, then line 9078 goes SUB to the DELETE 
Cha racer routine. If the key struck Is ENTER, then line 
9880 goes SUB to the Sequential File SAVER routine. After 
the line of data Is SAVED the typing buffer U$ Is zeroed and 
its back to the K-State for more characters. 

Continuing- Then at line 9884, If CAPS-SYM SHIFT Is 
the key, we have decided to QUIT, and the last line Is SAVED 
at 9906. During Input typing none of these escape routes 
are taken and line 9985 executes to do several things. 
First, the character counter prints the current length to 
keep you up-dated. Then the last character Is printed to 
screen. Then the "print position variables a and b are 
up-dated. Then line 9986 prints the cursor and then 
Concatenates the last character to U$. At line 9888 the GO 
TO 9872 gets Peek K again for the next character. Now lets 
look back at lines 9880 and 9885. Both use <G0 SUB 9940> 
which Is to check to see If the screen Is full. 

If so, then at line 9940 we POKE 23692,255. Tills kills 
SCROLL and any subsequent line ENTERED will push up from the 
screen bottom, a SCROLL UP If you will. Line 9906 Is the 
END ESCAPE routine. But It also gives you a choice of 
continuing Inpur lo the disk file. If you decide to quit 
then line 9908 does a V E R Y IMPORTANT function. It 
CLOSES the FILE with <RAND0M IZE USR 100:CLOSE#5>. Tills Is 
absolutely essential when you finish Input I ng data to an 
open disk file. ANY LKDOS FILE Is OPENED with <RAN00M IZE 
USR I00> and must be CLOSED In the same manner. Remember 
that LKDOS Is operating from the "DOS BANK of memory" and 
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9990 REM *** LKDOS AUTO SAVE 

ROUTINE *** 
9992 POKE 23750, 255: POKE 2373 1, PEEK 2364 
2+3 

9994 RANDOMIZE USR 102: RUN 
Two More TOOLS 

The above two ut I 1 1 ties are very 
useful to mo. The LKDOS disk catalog 
does not contain the Start Address and 
END address or byte length of CODE FILES 
(Extension .CI). So, one Is left 

fumbling In the dark when one needs that 
Information to peek a code file. If you 
con peek a code file you can convert the 
peeks to Characters (If the code 
represents character data). Or, If It 
Is a CODE Program, the code can be 
disassembled. "CODE FINDER" does that 
for you. 

Next, we have a nice little utility 
to AUTO SAVE a program. "Heck, thafs 
easy to do with Just RANDOMIZE USR 102, 
eh"? If sure Is, but the SAVE takes 
about 7 cylinders of disk space! Tills 
Is because an Auto Save SAVES every bit 
of RAM from PROG clear up to Ram Top. 
So an auto save actually saves 38K of 
stuff to disk, when the actual program 
may be only 2K In length and will fit In 
just ONE CYLINDER of the disk. 

the "LKDOS AUTO SAVE" utility given 
above reduces RAM TOP to about 7 50 bytes 
above the basic program and Its variable 
file. Then It saves the program so that 
II auto runs by holding the ENTER key as 
I he comput er Is turned on. 

There Is some rationale about Auto 
Running programs with LKDOS. We will 
attack It fhls this way. We reduce RAM 
10P to make the program shorter, thus 
taking up less disk space. BUT- when 
the program Is reloaded, RAM TOP is 
STILL REDUCED. The result Is that the 
program will Auto Boot O.K., but then 
may have a severe shortage FREE MEMORY 
for operation. If we reduce FREE (by 
setting Ram Top DOWN before the save) 
then H eovitd be that tfca program wwt 

run after auto loading. The way to fix 
this Is to "prepare the program before 
saving If". We do that by I nsta I I I ng a 
bit of programming in the FIRST 
convenient program line of the program 
to be saved. 

There are two addresses, the 
contents of which controls Ram Top. 
They are addresses 23730 and 23731. 
Upon start up these two addresses have 
these values: 23730»87 and 23731=255. 
So, we should POKE these value to the 
two addresses EARLY In the auto run 
program. We do that by adding to the 
first operating line of the program: 
<P0KE 2373 1,255: POKE 23730, 87>. Then 
when the program auto loads Ram Top wl I I 
be set to 65367, Its normal setllng. 



wont operate without RANDOMIZE USR 100. 

TOOL #4, Is the "Vlew-PRINT" for Sequential Disk Flies. 
These functions begin at line 9918 and end at line 9946. 
First at line 9918, the STOP is to keep this package of 
functions from operating after the previous routine is 
finished. So, If you are operating both together, the STOP 
will be reported. Then to enter the routines type <C0NI 
ENTER > Line 9920 gives the choices of Viewing the Disk 
File or Printing It. We wl I I skip the rationale about 
screen viewing and work with PRINTING. Line 9924 goes SUB 
to a neat little "PRINTER FORMAT" routine at line 9960, 
where you can format the TAB and Line width. 

Then line 9928 does a little shenanagln of selectively 
0PFNING a previously c losed f I I e I n d I sk. Variable ZZ Is 
carried over from the INPUT TOOL section ( I Ine 9870). Its 
value Is between I and 5. So the proper «'ne ror xhe *0 *«B 
Is already fixed. This group of lines are the "0PEN#5 "IN 
group". The objective Is to OPEN the disk file and read I he 
file back to the printer. A little parenthetical comment Is 
appropriate. I couldn't find a key to Concatena te the 
titles with a number for either the OUT titles or he IN 
titles. This leaves the door open for someone to feed bacK 
the solution. 

At line 9930 the < INPUT #5;u$> "reads the disk file 
that has been opened. The d I sk f I le contains as many 
"RECORDS" as were previously separated by ENTER . ^y"" 0 
that In a different way; Each time you SEND data to a OPEN 
FILE It forms a new RECORD. Remember that earlier we sent 
the "lines of data" to disk each time we touched ENTER. So, 
each line became a separate RECORD and now we are READING 
the records back from d I sk, one at a time. MOV NG o o 
line 9932 and 9934, variable xx=2 for PRINTING, so line 9934 
executes to LPRINT U$, which has the current RECORD from 
disk. 

Then Line 9936 goes back to line 9930 to gel the next 
record. There Is one problem to overcome. We are In a .LOOP 
here, returning to line 9930 to keep on reading In records 
from the disk file. When there are no more records, the 
system will cause a report code "no more records" and stop. 
So, we place <0N ERR GO TO 9946> at the beginning of Ine 
9930. Then when there Is an attempt to read beyond the las! 
record, the ON ERR will trip and line 9946 will execute. 

When line 9946 executes, every record of the disk flie 
has been printed. The ON ERR Is RESET, and the disk file Is 
CLOSED. And that Is the end of this haranguing group of 
epistles (except for a few closing comments). 

Swjvwmtlal Files seemed to be a very complicated part 
of LKDOS to me. So, I pushed 1 1 as I de un t I I • foul d gel 
rountult. Actually, once one gets used to "OPENING' and 
CLOSING FILES, which Is the principal bug-aboo, sequenl a l 
files offer great f lexl bl I Ity of managl ng data. The f I le 
handling Is much faster than I thought poss ble. The 
principal advantage Is the TINY amount of computer memory 
that Is used. One can Just keep on building a disk Us to 
an extremely large size, much larger than can be handled 
within FREE RAM memory. These utilities points out Just one 
method of data management with sequential files using short 
"line length" records. A record can be from a single 
character In length to several thousand characters. 

Each Individual save to disk Is a separate RECORD. So, 
to build large records, one J ust keeps on typ I ng and when 
finished, do the 
forget to CLOSE 
retrieving data. 



"SAVE with <PRINT #5;"data» or U$>. Dorvt 
the file when finished, either sending or 
Have fun I -BJ 
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Daisy. B6 is a hi-bred update of the Smart Text software ensemble. Most of the Daisy program 
remains in disk with MERGE being used extensively to bring in parts of the program when called 
for by menu electives. This concept, along with 29 menus and information screens in disk, allow 
the program length to exceed 75K and many more functions to be provided. This is the largest 
software ever produced for the TS-2068 and it encompasses a full range of Administrative 
functions. Daisy has five different Data Bases. Text files, mail files, outline files, D.base-1 
files, and sequential files, are all coordinated by either manual Menu electives for LOAD SAVE, 
or by selection of automatic sequences that saves data by discrete file name or loads data files 
for automatic printing. Any number of disk data files may be printed "in sequence" as a 
continuous document or letter. Mail files may be used for printing of labels or envelopes. 
Literally dozens of other printing products are available via menu electives. 

Daisy's menus allow full versatility of printing styles, formats and line lengths. The 
printer control group is for either Dot Matrix Epson Compa table printers or for any kind of Daisy 
Wheel printer. This 'printer control group' can easily be re-configured for any Centronics 
printer. As programmed, Daisy prints only with the Aerco or Oliger printer interface and will 
require some line number revision to print with A&J or Tasman interfaces. 

In addition to printing its own data base products the Daisy menu selections provides for 
quick print out of ANY kind of data file created by other softwares and recorded as an ASCII Code 
files. This includes Mscript, Tasword, and Modem download down-load files. Two other softwares 
are integrated by Daisy. Menu electives select either D.base-1 or the View Calc program for 
operation. The data products of D.base-1 are used by Daisy for print out. Each of those 
programs returns to Daisy upon exit of the program. 

Daisy creates its own text files via fast input typing and FULL EDIT. Two types of Text 
files are optional. 1. A flexible Character Array file consisting of individually managed data 
groups. 2. Sequential files using direct coordination with disk. Both types of files may be 
reloaded from disk for full editing and modification, and both types of files may be sent to the 
printer for print-out in the format selected at menu. 

Following are just SOME of the Daisy Menus and screens, given to provide an overview of the 
software. 



FUNCTION MENU 



pice 



<!> INPUT-EOIT Oeta Hal I 

<2> Caption No 

<3> Format Menu 

<4> Date Status 

<5» Seve/Loed/Delete LX-80 

<6> Print Typing U-64 



<9> Una Space 
<A> lattarhead 
<B> Sign Off 
<C> Page End 



90-40 
Pg Lgfh«J6 

free 



OFFICE TOOLS 

1 1 I Turbo Mode Switch 
121 Print Ooda ASCII File 
131 Load Obasa-I 

Ml Rapaat Print Manu 
131 load Hall Marga 
161 Load View Calc 

171 To Function Manu 
(81 Paga Management 
191 Re-lnltlel Ize Daisy 

101 Creata/Prt Outline DB 
It I Prt/Vlew Seq Files 
l ( l Create Seq File DB 



Disk ch ta Sise « en 7~ 



I, Typing 2. Re-Ed 3. Store 
4. Print J. HELP 6. Delete 

7. View/Edit Array Cel Is 

8. Word Replace, Global 

9. Input to LI for PASTE-UP 
0. SAVE 

1-2000 



Select Print Style 
<l> Standard Pice 80 
<2> Pica HI Oual 80 
<3> Elite HI Oual 96 
<4> Condensed 136 
<J> Italic 
<6> Expand width 



Select until Finished 

<l> Sngle Spc 
<2> Obi Spc 



<8> Let Head Stnry 

2083 

and Pg Cent-68 Pg Lgth-72 



File Management Options *■ 

> Remove Repeats 

> Remove Skips 

3> Move Zip to line 4 
4> Sort Date Base 

> Break Lg File to 4 Files 

end Save 

> Combine 4 Small Files 

to Sort 

> Seve e Sorted File 
8> Load a large Fl la 

31 ear Memory 
0> Present Key Records 
(Line 7 Key) 
View or. Print Records 



Sequential File Data Bas« 



IB I The Delsv Typlno INPUT wl I 
SEND DATA to DISK each tlrm 
CAPS ♦ SVM SHIFT Is used. 

ICI Or, Creete Record Lines 
of any length. 



" V6ur Choices areT 



121 Create Data File of 
Text LINES 

ENTER <l> or <2> 13 Aborts I 



fkt<U> 



j 



e Manager 

. iltl Manager 
that does the followlngi 

III Types Data directly to DISK 



131 PRINTS Code Files as SAVED 
by Mscript, Tasword, or any 
ASCII CODE File 

|4I Views Sequential Files 

151 Help Info S 




r V*rr\ File.* - flsc// Ft/CS 
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NEW QL ISSUE DISKS FOR JULY 89 

THREE (3) new QL DISKS or MDVs are 
offered! I am typing this column with one 
program that is in the "CABLE C" Disk. This 
program is an adaptation of one given by 
Simon Goodwin in QL World, by Phil Spink, 
and improved by Bill Cable. The best way to 
describe it is to tell you how it is 
operating. I am working with Quill to type 
and print this. There are four programs 
Multitasking at the same time. This is all 
four of the PSION suite of programs. To 
change to Archive, I just touch <CTRL> C and 
then press <SHIFT F5>. The first action 
shifts from QUILL into ARCHIVE. The second 
action Updates the screen to the ARCHIVE 
screen. Another shift gets ABACUS, another 
gets the third PSION program, etc, until 
QUILL comes up again. What does this do for 
us? The existing data file of each program 
remains in memory, and you dont have to SAVE 
or RE-LOAD anything to go from one software 
to another. They are all operating at the 
same time (multitasking). Most other 
EXECutable Super Basic programs can be added 
to the multitasking ensemble, for up to 10 
programs running at the same time with 
Trump, or fewer in an un-expanded QL. The 
number depends upon the individual programs' 
length and how much memory each needs for 
data alloction. Documentation is furnished 
with the Issue Disk or MDV. 

The second program in the CABLE C disk is 
"Filer", the key-in project given in this 
issue. 'Filer', a program to manage Archive 
Files is fully described in the text of the 
article by Bill Cable, and has more 
instructions in Doc Files. 

Order the "CABLE C" disk and get both 
programs. $22.00 postpaid. If ordering for 
Micro Drive, send a Formatted MDV cart for 
dubbing. This is easily a $50.00 value. 

The "CABLE B" Issue Disk MDV: 

The main feature of this series contains 
a group of Procedures that will allow you to 
design, create, and manage, your own ARCHIVE 
Data Bases in an extremely easy environment. 
The program is aptly named "Dbeasy". You 
only need to load ARCHIVE and type 'RUN 
dbeasy ENTER". The rest is just following 
Menus that allow you to create and manage a 
data base "shaped to your needs". Anything 
that you would keep on file cards or in 
listings can be easily handled. For 
example, you can establish many records, 
each having 10 lines of 64 characters each 
(more or fewer). Once you input the data to 
the records you select, search, and order 
the records in a wide variety of ways via 
Menu electives. You can Print Out the 
records in a wide variety of ways. An 
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extensive Doc file of instructions teach you 
how. 

This versatile program is supplied post 
paid on either floppy disk or MDV for $22.00 
(at least a $50.00 value). If ordering for 
MDV please send a Mdv Cart for dubbing. 
(Ask for the CABLE B Disk). 

THE HARTUNG 6-3 DISK 

Bob Hartung gives us several very useful 
programs, plus a menagerie of useful Disk 
Management utilities. The utilities are 
given in this and past issues of Update as 
key in projects. The disk directory 
follows. ** indicates PROGRAMS. * indictes 
utilities. In addition, Update has added 
"CAPS", the neat Caps Indicator given in a 
previous issue of Update. To make CAPS 
multitask with any operating program, type: 
exec mdvl_caps ENTER. Or the same may be 
entered into any program line to have CAPS 
multitask with the program. (A Caps Lock 
Indicator in the RH Top corner of the 
screen). The HARTUNG V6 Issue Disk 
Directory: 

HARTUNG 6_3 
18/216 Sectors 
BOOT 

Data_file ** 
Infowriter ** 
infohelp 
helpl 
help 
QLDEX * 
CAT PRINT * 
Addrfilel ** 
QLLLIST * 
MFinfo 
ADinfo 
QL_VAL * 
MENUload * 

xQL_DEX * 

xMENUload * 
TKTmanager * 

TKT Menu Mgr * 

Mergewriter ** 

mrginfo 

dfile test 

CATJDAT * 

CAT_1 

testfilel 

myfile 

QSO_FILE ** 

QSO FILE2 ** 

QSOTnfo 

CAPS * 

How can one tag a value to such a large 
ensemble? $22.00 postpaid. Ask for the 
Hartung 6-3 Issue Disk. If ordering for 
Micro Drive, send a formatted MDV cart. 
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TS-2068 
ISSUE DISKS ! 

d..base..1 



"Dalsy.B6": This new software started off as 
"Smart Text" and has been used for the past couple 
of years to publish Update Magazine, "Leave good 
enough alone" Is an adage disregarded. Now 
Dalsy.B6 takes on a new look with the extensive 
use of the MERGE function to boot In many new 
functions that havebeen added. This multiple Data 
Base Manager Is used to create a wide variety of 
useful data bases and then print them In the 
user's choice of formats and print styles. 

"Automation" Is the theme of Daisy. 29 menus 
and set-up Instructions boot In from disk as 
called for by the operation In progress. Daisy Is 
designed to do everything that one needs a 
computer for, except game playing. The print 
products are so flexible that Daisy prints 
straight formatted pages, automatic Columns, or 
offsets. Letters are automatically formatted. 
Repeat letters to mailing lists are automatic, and 
Daisy creates Its own mailing list data base.. 
Label printing Is a breeze. Included Is likely 
the best Printer Control Group ever produced, 
designed for controlling Epson Compatable printers 
and all Daisy Wheel printers. Easily adapts for 
any other type of printer except Serial printers 

The Daisy software MANAGES disk drive as If 
the disk were a part of the TS-2068 Memory. The 
program length Is approximately 75K, with most of 
It In disk. Daisy Is the largest software likely 
to ever be produced for the TS-2068. It has more 
functions than any TWO of the OL PSION softwares 
combined, or the IBM Word Perfect that sells for 
over a C note. It. wl 1 1 take several months of 
steady use to learn all of the Daisy functions, 
but one can start right off doing easy letters, 
Daisy for LKDOS Is now available. The Ollger DOS 
version will be finished by August 1, 89, and the 
FD-68 version by Sept, 89, 



VCalc-dd 

* View Calc For Disk Systems * 

The "Mitchell VC" Issue Disk 

We have always needed a View Calc program 
that works with Disk Drive, The TS-2068 View Calc 
program has been around for several years, but 
most of us quit using It because Cassette 
operation Is so slow. Now Bob Mitchell has 
converted View Calc for LKDOS operation. Update 
wl II do a Ollger and FD-68 version. 

Bob adds Help Files, and a Compiled Machine 
code "Spreadsheet Printer", plus disk save and 
load. The latter makes It easy to manage view 
calc files without having to wait for the moon to 
come up while a file loads from cassette. This Is 
a snappy program that one can now use to 
advantage. Use the article In this Issue for 
documentation, plus your old View Calc manual. 

Available now tor LKDOS. 01 1 ger DOS version 
by August, and FD-68 version by September. 



The New "O.Base-1" Software for Sinclair Computers * 

An Issue Disk Program 

"D.base-I" Is described fully In the key-In 
article given In this Issue. The choice Is given 
to key In the program or order It as an Issue 
Disk, and get some added utilities. This multiple 
data base software creates and manages files of 
records. Use It for almost any conceivable need, 
from mailing lists, Inventory lists, dally diary, 
family records, Invoices, making race track tout- 
sheets, outlines, appointment schedules, 
genealogy, stamp collection records, or whatever. 
An unprecedented variety of sorting Is provided. 
Sort by first group of any line or last group of 
any line. The data base Is so very flexible that 
any size or shape of records may be designed. 

A wide variety of Prlnt-outs allow one to 
print labels, full records, or partial records. 
Page control with page numbering Is optional. 
Disk management allows the flies to be recalled 
for additions, editing, re-sorting, clean-up of 
repeats, and elimination of skips In the records. 
A built In letterhead and signature (sign off) 
allows Invoices to be managed, or the production 
of letterhead' stationary. A separate data base Is 
"Outlines" that allows one to create flexible 
outlines as used In school work or descriptive 
writing. An outline printer Is also Included. A 
very flexible data base program that Includes 
managed printing and disk drive coordination. 

D.Base-l Is available now for LKDOS and 
Ollger DOS. Target date for FD-68 version Is 
August 89. 



* EXCLUSIVELY FOR LKDOS » 



!. The UPDATE COLLECTION: This Issue Disk 
contains all of the LKDOS Utilities given In the 
magazine during the 1989 year of publication, 
Including this Issue. The major sortwares are not 
Included, Just utilities. This Is quite a 
voluminous group of uttlltle* for LKDOS u**rs>.» 
Both Ollger and FD-68 Collections are In works. 
No favoritism here, Just have my plate full right 
now. 

2. NOT AN UPDATE ISSUE DISK: But every LKDOS 
user should have Itl "The OMNIBUS DISK" for 
LKDOS, Is a coi lection by Bob Mltchel I , 20 Wl Id 
Brlarway, Wlllodale, Ontario M2J 2L2, CANADA. 
Update does not know the price, but has examined 
the Omnibus Disk. It Is chuck full of Excellent 
utilities for LKDOS. There are only a few 
programs that are duplicates of the "Update 
Collection". Write for price and availability. 



Ordering: Please specify your type of 
Disk System, and whether for DS-DD 40 track 
or DS-DD 80 track Drive. Issue disks are 
$22.00 each Post Paid, and are guaranteed to 
please or full refund. 
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TS-2068 Data Input (re-vlsited) 

OR- "A new Hiding Place for Code" 

The program given In the April 89 Issue 
titled "TS-2068 INPUt" has a machine code program 
"Co neat m. CI" (By Don Lamen) which provides fast 
Input typing and concatenation of the Input data 
to a typing buffer. That program works Just fine, 
but we used the TS-2040 Print Buffer area for 
storing the code program. I ask Don to provide 
the code for a new storage place In memory 
starting at Address 24311. Following Is the Z80 
assembly Instruction program for the new 
"concat.CI" code program. Then a BASIC program Is 
given to POKE the Code to memory and then SAVE It 
to your disk. This LOADER/SAVER program can be 
used for universal purpose to Install any code 
program to memory and check-sum the program. When 
you run It, INPUT 24311 for starting address and 
202 for Byte length. Then for the SAVE, Input 
"concat.CI" as the title to save to disk. 

Next, to operate the "TS-2068 DATA INPUT" 
program as given In the April 89 Issue, with this 
newly located code, change Line number 150, 167, 
265, and 390 to "RANDOMIZE USR 24355". Also 
change line number 158 PEEKS to <LET a=PEEK 24314> 
<LET b=PEEK 243 13> <LET al =PEEK 2431 1+256*PEEK 
243 12>. Then the "TS-2068 DATA INPUT" program 
will run with this new Code Location. (After it 
Is saved by the "LOADER PROGRAM LISTING" given 
herein). 

This new location of the Concat.CI" code 
program opens up the Printer Buffer area for its 
normal use, and for use of the Ollger CPI printer 
code. Also the new location does not cost any 
FREE memory, and Is safe from being overwritten by 
an operating program. 

The LOADER PROGRAM LISTING assumes that the 
user has Initialized the DOS before using RUN to 
operate the loader. Also line number 250 is set 
up for a LKDOS SAVE of the concat.CI Code file, 
if using another DOS replace the RANDOMIZE USR 100 
and SAVE with the proper syntax for the DOS. Once 
the LOADER program Is keyed In it Is ready to 
operate with <RUN>. It first pokes the code to 
the memory addresses, then checks the sum. If the 
sum Is as given in line 2022 (and Input at the 
prompt), the LOADER program proceeds to the Disk 
SAVE line at line 250 and SAVES the code program 
to disk. You should Input "concat.CI" as the 
title for SAVE and Input 24311 as the starting 
address and 202 as the byte length. 

Before the code SAVES to Disk, Line number 
230 peeks the code back from memory and checks the 
SUM to make sure that the DATA lines have been 
keyed In correctly. If not you get the long toot 
and will have to re-check your work. I would 
suggest that you use a different diskette than the 
one that has the original concat.CI program. Then 
transfer the original "DATA INPUT" Basic program 
to this new disk. This way you will have two DATA 
INPUT programs, one working with the old code and 
one working with the new. We are spending this 
extra space in Update because the DATA INPUT 
program given In the April Issue and amended here 
is the best "Front End" for a Data Base program 
that has ever been given for the TS-2068. 
Everyone should have It. 



Dear Bill, 

Here Is the update on the "eoncat" code. 

The new entry points arei 



variable I 24311 (2 bytes) LEN u$ ( BASIC VAR Al ) 

Jar lib e 2 243 4 (I byte ) — LIN ( BASIC VAR A ) 
lerabU 3 243 3 ( byte > — COL ( BASIC VAR B > 
Variable 4. IJlii (I bjt. ) — CHAR. (BASIC VAR C ) 
Entry point U Print the last 148 characters. 
Entry point 2. Concetenate 



I have added six new bytes from 3F03h to 5F08h to 
a crash In the went of a mls.lno «S. If there I. no uS 
Variable not found " error report will be printed. 



prevent 
a « 2/n 



24311 5EF7 0000 
24313 5EF9 0000 
24313 3EFB 00 



24316 5€FC 2A4B5C 
7E 

FE53 



COOE DISASSEMBLY 

VAR- 1 1 LEN u$ 
VAR-21 SPOSN 
VAR -5 « CHAR. 



i (C) 



3 bytes 



3F03 FEB0 
2002 
CF0I 
CD20I7 



24333 5F0F CDA608 



FlND-uS« 
CHECK » 



NEXT -ONE « 



CLSt 



24341 5FI5 2I383C PR I NT -AT I 
CB8E 
2I3C5C 
CB86 
CDB205 
C9 

Entry point li (PRINT LAST 148 
2055 5F23 CD0F5F PRINT-I48t 

C0FC5E 

23 

4E 

23 



LD HL, (VARS) 
LD A, (HL) 

CP 55 > •» 1+ "* 

RET Z J If V" return 

CP 80 I End of VARS f 

JR HZ, NEXT-ONE I NO It's OK 
RST 08 DEFBi '2' > Not found 
CALL 1720, NEXT -ONE 
EX OE, HL 
JR CHECK 

19 bytes 

CALL 08 A6, CLS 
LD BC, 0000 



LD HL, 5C3B, FLAGS 

RES I, (HL) 

LD HL, 5C3C, TV -F LAO 

RES 0, (HL) 

CALL 05B2, PR I NT -AT 

RET - 14 byte, 



ED43F75E 



ED42 

09 

3008 



ED52 



24388 3F44CD0B2I 

ED4B8890 
3EI8 



FE20 
2003 
OEO0 
04 

24410 5F3A E043F95E 
CDI35F . 
3E5F 
07 



CHARS.) 

CALL 3F0F, CLS 
CALL 5EFC, FIND-uS 
INC HL 
LD C, (HL) 
INC HL 
LD B, (HL) 
LD (VAR-I), BC 
INC HL 
EX DE, HL 
LD HL, 0094 
AND A 

SBC HL, BC 
ADD HL, BC 
JR NC, PRINTS 
EX DE, HL 
ADD HL, DC 
AND A 
SBC HL, DE 
EX DE. HL 

LD B, H 

LD C, L 

PRINTS! CALL 2 IDS, PR-STRIMQ 
LD BC, (SPOSN) 
LD A, 18 
SUB B 
LD B, A 
LD A, 21 
SUB C 
LD C, A 
CP 20 

JR NZ, STORE 
LD C, 00 
INC B 

L0 (VAR-2), BC 
CALL 5FI3, PR -AT 
LD A, 5F 
RST 10 



i LEN uS 



t 148 dec. 
; Reset oy 



, If LEN uS 
<- 148 then 
print ut. 
, I f LEN US 
> 148 then 
•rl»t l»»t 
148 chars. 



, 24 dec. 
t 33 dec. 



, New line T 



Store parent. 



I Cursor 
; Print cursor 



Entry point 2» (CONCATENATE) 
24420 3F64 3A3B5C CONCATj 

FEDD 

38F9 

3A085C 

5F 
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65 bytes 



LD A, (FLAGS) 

CP DO J 221 dec, 

JR C, CONCAT , Walt for key 

LD A, (LAST-K) 

LD E, A j Save char. In E. 
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FE29 
300A 
2I9E00 



3F70 CD06I6 
22533C 
C9 

3FB3 32FB5E 
CDFC5E 
23 
4E 
34 
23 
46 
200! 
34 
09 

CDB8I2 
3F95 3AFB5E 

23 
23 
77 

3F9B E04BF93E 
CO IMF 
JAFB3E 
07 
3E3F 



L0 A, DC I 220 dec. 
tO (FLAGS), A 
ID A, E 

CP20 | If It < 32 f 

JR NC, COMT | No lt»» OK. 

10 HL,009E i II < 32 oec, then 
go to line 130 In 

CALL IW6, LINE-ADDR • 
LO (NXTLIN), HL 
RET 

LO (YAR-3), A j Save char. 

CALL 3EFC, FIN0-u$ 

I NO HL 

LO C, (HL) 

INC (HL) 

INC HL 

LO B, (HL) 

JR HZ, ADVAN 

INC (HL) 

ADD HL, BC | HL-> to lait 

CALL I2B8, ONE-SPACE char, 
LO A, (YAR-3) ) Get char. 
INC HL 
INC HL 
LO (HL), A 
LO BC, (YAR-2) 
CALL 3FI3, PR -AT 
LO A, (YAR-3) 



, Add It to ut 



07 

24469 3FA9 2AF93E 



FE20 
2003 
2E0O 



22F73E 
IBA3 



RST 10 
LO A, 3F 

RST 10 

LO HL, (YAn-2) 
INC L 
LO A, L 
CP 20 

JR NZ, UPOATE 
LO L, 00 
INC H 

LO (VAR-21, HL 
LO HL, (YAR-I) 
INC HL 

LO (YAR-I ) , HL 
JR CONCAT 



I Oat char. 
I Print It 
I Curfor 
I Print 



, Is It 32 « 



I 'AT 1 Peram* 
t LEN ute 



93 bytaa 



24513 5FCI NEXT BYTE 



TATAL 202 by tea 



I expect to have tha machine coda routines for Database-! 
read? In time for the October Issue of UPDATE. 

For Batter Computing, 



Don Lamen 
S INCUS 



SINC LINK 



During this uncertain time about Sinclair 
Publications the Ontario TSUG is rising to the 
occasion by increasing the size and content of 
SINC LINK, their magazine size newsletter. The 
MAY-JUNE 89 issue is 24 pages and is chuck full 
of detail. Subscription is $12.00 (U.S). 
Enclose US Cash bills or Intl. Money order. (US 
checks costs for processing). 

Sine Link, 14 Richome Court, Scarborough, Ontario 
M1K 2Y1. 



200>REM *** LOADER PROGRAM 
LISTING ** 

210 CLS : INPUT "Input Check Su 
m of Program»;ck: INPUT "Input S 
tart Addres to SAVE Code ";x1: I 
NPUT "Input Byte Length :";x2 

220 RESTORE 2000: LET X»0: FOR 
n»x1 TO x1+x2-1: READ a: LET x=x 
+a:: POKE n,a: REM *Poker* 

225 NEXT n 

230 LET b»0: FOR n=x1 TO x1+x2- 
1: LET b=btPEEK n: REM * Get Act 
ual Sum * 

232 NEXT n 

234 IF b»ck THEN GO TO 250 

240 BEEP 2,6: PRINT "ERROR I Re 
check work.": STOP 

250 CLS : INPUT "Key In a Code 
Name To SAVE. include Extens 
lon-";a$: INPUT " Input Start I ng 
Address for SAVE ";x: RANDOMIZE 
USR 100: SAVE a$C0DE x,x2 

260 CLS : PRINT AT 10,0;"7he co 
de program has been SAVED at add 
ress ";x: STOP 

2000 DATA 0,0,0,0,0 , 42 , 75,92, 126 
, 254,85, 200, 254, 1 28, 32, 2, 207, 1 , 2 
05,32 

2002 DATA 23,235,24,240,205,166, 
8, 1,0,0,33,59,92,203, 142,33,60,9 
2,203, 134 

2004 DATA 205,178,5,201,205,15,9 
5, 205, 252, 94, 35, 78, 35, 70, 237, 67, 
247,94,35,235 

2006 DATA 33,148,0,167,237,66,9, 
48,8,235,9, 167,237,82,235,68,77, 
205,219,33 

2008 DATA 237,75, 136,92,62,24,14 
4, 7 1 , 62, 33, 1 45, 79, 254, 32, 32, 3, 1 4 
,0,4, 237 

2010 DATA 67,249,94,205,21,95,62 
, 95, 2 1 5, 58, 59, 92, 254, 22 1 , 56, 249, 
58 8 92 95 

2012'dATA 62 , 220,50,59,92,123,25 
4, 32, 48, 1 0, 33, 1 58, 0, 205, 2 1 4, 22, 3 
4,85,92 , 201 

2014 DATA 50,251,94,205,252,94,3 
5, 78, 52, 35, 70, 32, 1 , 52, 9, 205, 1 84, 
18,58,251 

2016 DATA 94,35,35,119,237,75,24 
9,94,205,21,95,58,251,94,215,62, 
95,215,42,249 

2018 DATA 94,44,125,254,32,32,3, 
46, 0, 36, 34, 249, 94, 42, 247, 94, 35, 3 
4,247,94 

2020 DATA 24, 163,0 

2022 REM Check sum=21223 



This Loader Program Llstlnc 
Including the DATA " 
on page 4. 



I Ines, 



was created 
y the »Mlz.B4 



In Its entirety, 
" program, given 
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DOMINO CUBES 212 *^ 1 S^3S 
3SS WEST 39th £3~T - 
fsIFTUI YDRK CITY 1 Q>G> 1 S— 1 % 



PRESIDENT MIKE FINK 



TME Z-SS 8TPRT8 AT *48Sf THEN DBDPE 

*<S FOR EAGM »1»«Z> WORTH OF RELATED 
ACCESSORIES YOU DRDER — BTOP8 AT »42E 



P B 



2 - 

3 - 



32K 



COMPUTER - « 
CORDS - - - « 
CARDS _ - - * 
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PORTABLE 
RAM OR EPROM 
RAM OR EPROM 
S12K RAM CARDS - 
PARALLEL PRINTER C ABL 
SERIAL. RR I NTER CABLE 
RC LINK - IBM - 

RC LINK - MAC I NT 

RC l_ I MK - QL - 

ERROM ERASER — 2 CARD 
ERROM ERASER — * CARD 
A / C AD ARTER « Z — 

A/C ADARTER * Z— SB* CAR - 

MV MANUAL " A " E REE WITH Z 

M V MANUAL " B " 

SQUARE RIN RR I NTER 

SQUARE RIN RR I NTER 7KH2I CRS 

PORTABLE! INK — JET RR I NTER ifljBL CPS 

CARRY I NO CASE "A" - 

CARRY I NO CASE " S " - 

202K RORTABLE DISK DRIVE 
20 MR - A A BATTERIES <^> 
40 MR. A A BATTERIES < ^ > 

-5 NI— CAD ' C * BATTERIES - 
, 120C BAUD MODEM RKQ - 
3 - S5 " DISKS, 1 O* RACK - 

RIBBON— RILM C 1 30BK RR I NTER 
, INK-JET INK, PLAIN or INK-JET - 
, INK— JET STAND 

COLORED INK < R— — B > - 



B * X (O 



RREE DELIVERY UNLESS YOU 
ORDER A RR I NTER r THEN ADD * X S5 



+ + V ♦ * ♦ v 

THE ONLY DEALER IN THE 
WORLD WHO GIVES YOU AN 
UNDERSTANDABLE BEGINNERS 
INSTRUCTION • MANUAL ! ! AND 
THE ONLY DEALER BELLING 
AN AFFORDABLE EPROM 
ERASER, AND THE PLACE TO 
BUY THE PORTABLE DISK 
DRIVE TO SAVE LOADS OF 
MON*Y, FREE LOTTO PROGRAM 
W j TH Z _ B8 PURCHASE, ALSO 
THE ONLY PERSON ON THE 
PLANET WHO CAN SHOW YOU 
HOW TO COLLATE, AND PRINT 
MULTIPLE COPIES OF 
MULTIPLE FILES EASILY!!! 
HHILE YOU ARE ASLEEP OR 
AT THE MOVIES// 

* ♦ V ♦ ♦ ♦ v 

ALSO, THE ONLY PERSON 
OFFERING PROGRAMS ON 
CHEAP DISKS! ! THEY WILL 
COST BETWEEN AND *40 

* ♦ V ♦ ♦ ♦ ^ 
THE ONLY PLACE TO GET CAR 
AC ADAPTERS! 

+ + V ♦ <* ♦ v 



no 4 ♦ . 

D»m»H'UMM 




ElEBUMfll 




I I sotu HmrooucTonr nfi-lim usu« u.oo 

□ JSSS □ «Btt SU □ □ ws,Encwo 



"1 



. BXPi 



. PHONE * . 



A0DRE83I 

CITY/8TATHL 



CLVB ZBt/THW DBDtOIW 



CLUB Z 8 8 

1 time! 
cdEsljgris 

ZV722 Hull Road 
Oollon, Ongon 97017 
(803) I14KSI 



M4 »a.oo for 
«r<Wr» C»n«4»i 
Add 10.00 (or «ll 
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- SINCLAIR COMPUTERS 

ADVERTISING RATE SCHEDULE 

effective until July 1989 

UPDATE MAGAZINE is published quarterly each January, 
April, July, and October in support of the users and 
suppliers of the SINCLAIR QL, SINCLAIR Z88, AND 
SINCLAIR-TIMEX TS-2068. 

The following Ad sizes are based upon a page size of 8 
1/2 inches by 11 inches. Ads are black and white only. 
Reduction and enlarging capability exists for ads that are 
off size. Camera ready copy should arrive at least 15 days 
before publishing date. 



DISPLAY ADVERTISEMENT RATE SCHEDULE 



AD SIZE 



PRICE 



2 pages 
1 page 
2/3 page 
1/2 page 
1/4 page 
1/8 page 



$220.00 
120.00 
90.00 
65.00 
35.00 
20.00 



(vertical 
(vertical 



or horozontal) 
or horozontal) 



(vertical or horozontal) 
(vertical or horozontal) 



Special placement of full page or double page ads, add 
10% and call for reservation (inside front cover, first page, 
inside back cover, back cover) . 



Line ads: 78 characters per line across page, 1 line 
minimum, $6.00 per line. Will be type set to Elite 12 Chrs 
per line. 



Your existing Ad copy for other publications is fine. 
Just send copy with instructions for sizing (up, down, or 
same). Enhancement of legibility is usually possible. Draft 
quality dot matrix print is not so good. 

TERMS: Check Payment with order 10% discount, or 
billing on publication date, (no credit cards). 

Send Ad copy to: UPDATE MAGAZINE, 1317 Stratford Ave., 
Panama City, FL 32404. (Tel: 904 871 4513) 
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Update Magazine ISSUE DISK Library 
Index by Title and Issue Month of Article Documentation 



For the TS-2068 



For the Sinclair QL 



r Oct 87/Jan 88 Consolodated Disk 

* Mail Merge * List Looker * Purity 

* J-Utilities * Extra Memory. Utils 



l^The Mitchell A Disk April/ July 88 
* Budget * MS-TAS * Other Utilities 

l^Hartung A Disk (presented over 4 issues) 
A mmplete Dis/e Management group (WSDSX) 
For Oliger Disk Only 

V^DAISY.B6 July 89 

A "Whopper" grossenbigenheimer software 
that does everything but tie your shoes. 



\/m 



Mitchell VC Disk July 89 
View Calc for Disk Drive 



^1989 Update Collection 4 1989 issues 
All Utilities published during 1989 



t/D..base-l July 89 
Flexible Data Base 



Keep your software library up to date with 
these Issue Disks and increase your 
computing power. Software and utilites MAKE 
a Computer System. 



l^Cable A-l Disk Oct 88 

* Helper Software * Arithmetic 

An outstanding Manager for Disk and Microdrive 



Wtable A Disk Oct 88 
* Refield *.Scan 
Archive Softwares 



l^Hartung A Disk Oct 88 

* Address Pile program 

* Utilities 



l/^Cable B Disk July 89 

* "Dbjeasy" Data base software 



1/Wtung B disk Jul 89 
* 8 programs * 6 Utilities 



l^Cable B Disk July 89 

* "Db easy" Data base software 



V^Cable C Disk July 89 
* Multitasking Manager 



Filer program 



Issue disks are supplied for the a on either 5 1/4" floppy or Micro drive cartridge. If 
ordering f or Mic?o cart, send a formatted cartridge for dubbing. All programs will run in 
the Un-expanded QL, unless specified otherwise. 

Issue disks for the TS-2068 are supplied on 5 1/4" disk in one of two formats, DSDD40 
Sck or Ism 80 track. Please specify 40 or 80 track format. Supported are Larken LKDOS, 
Oliger DOS, and Aerco FD-68 disk systems only. 

All issue disks are $22.00 US Funds. Intl Money Order or Checks drawn on US Bank, 
(postpaid to USA and Canada). Add $5.00 for other Country mailing. 



Back Issues of Update Magazine are available in Year Series of 4 issues for $18.00 
(postpaid). Two Year Series are available, 1988 and 1989. The 1988 series pertains only to 
the TS-2068. Update began Sinclair QL coverage with the first 1989 issue. Support of the 
Cambridge Z88 began in mid 1989 and will begin to be "programming intensive" as the user 
group develops. 
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ZHSK DRIVE SySTEH SPECIALS 



.ooking for a disk drive system? LOOK NO FURTHER! 



RMG ENTERPRISES 

mi? 1/2 7TH STREET 
OREGON CITY i 0RE60N 970H5 
503/*55-7«4BM » NOON-10 TUE-SAT 






LOOS SINGLE DRIUE UNIT 

Here is a GREAT starter setup! 
If you are just getting into disk 
drives, this one will allow you to 
expand 1 ater-i nc 1 udes items below: 

LARKEN DISK I/F - CABLE 
LKDOS CARTRIDGE-DEMO DISK 
1-MITSUBISHI 3.5" MOOL DD 
UTILITY PROGRAMS-FULL DOCS 
STEEL CASE W/POWER SUPPLY 
Send copy of ad w/ck or MO for 

ONLV $240.00 ♦ $8 PH 

Order either system this ad and 
get 5 FREE DISKS! RMGMP1 02 
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□ 
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LKDOS DUAL DRIUE SYSTEM 

This system is READY-TO-RUN! Just 
plus it in and 90! Includes ALL of 

the following i terns : 
LARKEN I/F & DOS CARTRIDGE 
2- MITSUBISHI MOOK 3.5" DD 
STEEL CASE W/ POWER SUPPLY 
CABLE & DEMO/UTILITY DISK 
FULL LKDOS DOCUMENT AT ION 
All this AND after sale support! 
Send copy of this ad »/ ck or MO 
You SAVE 10'/. off regular I ou price 

ONLV $265.00 ♦ $8 PH 

RMGJ1P1 07 " 
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TRACER 2068 
A HEU PROGRAMMING UTILITY FOR YOUR 2068! 

This little package allows you to SEE WHAT YOUR 
PROGRAM IS DOING! Inagine being able to watch the 
progran lines go by at the bottoH of the screen as the 
display continues unaffected (other than the speed) ! 

A GREAT LEARNING TOOL!! 
You can see what each cofwand does! What better way to 
learn the basics of BASIC? 

YOU SET THE SPEED! AS SLOW OR AS FAST AS YOU LIKE! 
SIMPLE COMMANDS - ONLY 3 OF THEM! 

We think that TRACER is the best learning and de- 
bugging tool we've seen! We think that you will 
agree! The working part of the progran is iWZ MC and 
it is INTERUPT driven! 

Another SUPER product fron S i K SOFTWARE, the nane 
that brought you KRUNCHERSfi 

AT ONLY *14.95+$1.50ph 
THIS ONE IS A MUST FOR ALL PROGRAMMERS! 
IT WILL SAVE YOU MORE THAN THAT IN TIME ALONE! 

TRACER 2W8 
IS AVAILABLE EXCLUSIVELY FROM 

RMG ENTERPRISES 




Z88! 



We Support the Z88! 

We just wanted you to know that we will be 
exporting the Z88 to the best of our ability! 



If there is anything that you would like for 
your Z88 computer, be sure to let us know! 
Ab more and more products become available 
for this fine nei» portable computer, RMG will 
hare it for you. If we don't, let us know and 
we will do our best to set it for you— -FiSIl 

fir /zre j/farmtim or /rJces, cwtact 
{/sat tie $/dress or >jw/?e gite/? Mm 



RMG ENTERPRISES 

111? 1/2 7TH STREET 



OREGON CITY, OREGON ?70»J5 
5Q3/455-7M84 * NOON-10 TUE-SAT 
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RMG ENTERPRISES 

IS PROUD TO ANNOUNCE 
A NEW BUSINESS SOFTWARE PACKAGE FOR THE QL! 

INVENTORY/INVOICING PACKAGE 

FROM EXECUTIVE WORKSHOP 
If you are running a snail business that depends on a GOOD 
„. inventory control progran, THIS IS THE ONE FOR YOU! 
With, our new package you can keep track of all SALES, INCOMING 
STOCK, CURRENT STOCK vALUES-BOTH WHOLESALE AND RETAIL, as well 
as generate the following hard copies: 

INVOICES - BACKORDER MEMOS - PACKING LISTS - SHIPPING LABELS 
INVENTORY REPORTS - PURCHASE ORDERS - FLAGGED ITEM REPORTS 
PRICELISTS - SELECTIVE PRICE LISTS 

All of this and the best part is, WE WILL CUSTOMIZE THIS PROGRAM 
TO SUIT YOU! When you order this package, you will be sent a 
short questionaire to fill out and return. Within 2 weeks you 
will receive your program, ready to go! 

ALL THAT AND AT A PRICE OF ONLY *59 - 9>5+2ph 

FOR MORE INFORMATION ON THIS AND OTHER FINE QL PRODUCTS 
CONTACT: 
RMG ENTERPRISES 
1419 1/2 7TH STREET 
OREGON CITY, OR 97045 
503/ 655-7484 

(FOR CATALOG - SEND $2 - DEDUCTED FROM FIRST REGULAR ORDER) 
QLQLQLQL_QLQL.QL.QL.QL.Ql_QL.QL_Ql_Ql_QL.QL. 
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NEED 
A 

PEIMTER? 

UE [RN HELP! 



RMG can supply many top brands at low 
Prices. Names like: CITIZEN-STAR-ALPS 

PANASQNIC-OKIDATA-EPSON-SEIKOSHA 
BROTHER AND MORE! 

««* CHECK THESE OUT! »** 
PANASONIC KX1080 i ONLY $173.00 

PANASONIC KX109H ONLY $199.95 

STAR NX1000 MULTI-FONT ONLY $180.00 
STAR NX1000 RAINBOW ONLY $239.95 

STAR NX2M00 2"1-PIN ONLY $339.95 

SEIKOSHA SP-180AI ONLY $159.95 

CITIZEN I20D ONLY $159.95 

CITIZEN 180D ONLY $175.00 

Please add $15 each for sh. & ins. 
We also have MANY used printers in 
stock-Mr i te or cal I ! 



RMG ENTERPRISES 

mi9 1/2 7TH STREET 
OREGON CITY, OREGON 970H5 
503/655-7M8M * NOON-10 TUE-SAT 
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♦SPECIALS! SPECIALS • SPECIALS i* 
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HERE'S HOW! 



JUST SEND US IZ LEGAL SIZED S.A.S.E.s AND YOU WILL BE 
AMOUNC THE FIRST! 

YOU WILL RECEIVE AT LEAST 2 (USUALLY MORE) SHEETS OF SPECIALS 
OVERSTOCKS. DNE-OF-A-KINDS, HARD TO FIND ITEMS ALLNE- ' 
PRODUCTS AW) ANY SUPER BUYS THAT UE HAVE TO OFFER! 

THE BEST PART ! ! 

WE'VE SAVED IMS W^fSW&l WERE SAYING TO 
YOURSELF 'WHY SHOULD I PAY FOR THE STAMPS TO GET THESE OFFERS?' 
WELL LISTEN TO THIS! ! YOU WON'T BEPAYINGi WE WILL! 
T HAT'S RIGHT! 

IF YOU SEND THE ENVELOPES. WE WILL SEND YOU ALONG WITH thf 

firsi wmAmeSSS^ 

I DON'T SEE HOW UE CAN BE MORE FAIR THAN THAT! 
HURRY ! 
WN'T HISS ANY OF OUR GREAT BUYS! 
GET ON THE LIST TODAY! 
******** SEND YOUR ENVELOPES TO THE ADDRESS BELOW" 

nntm mti nmnmttm t mmt mmm nmmmmm 

Tr T WE WANT TO SERVE YOUR NEEDS! 

IF THERE IS SOMETHING THAT YOU WOULD LIKE TO SEE US CARRY 
^ LET US KNOW! MAYBE WE CAN SAVE YOU MONEY ON IT" ' 



